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16:38 VAX-11 Bliss-32 ot pg 5 Pa 
- 2:21:22 DISKSVMSMASTER: CUAF .SRC JUAFMAIN.B32; 1 
module uafmain (main = stort , 
anguage . 
gent : ‘Vv i-§89" 
pddress ing_node (external=general, nonexternal=general) 
= 


begin 


' 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 
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ie INCLUSION TICE. T H * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON, NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT IT * 
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; BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
!® CORPORATION. 
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: FACILITY: System Management Utility Program 


ABSTRACT: 
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} 
6 i 
37 . This program allows the system manager to maintain the user 
8 0038 : authorization file which contains usernames, passwords, quotas, 
4 s't84 } and defaults. The following functions are provided: 
41 0041 i ADD = add a new user record to the authorization file (UAF) 
4? Bneg : COPY = copy a user record, give copied record a new name 3 
43 04 : DEFAULT = change a default value 3 
44 044 } EXIT = exit program and update file 3 
45 045 } HELP = ask for explanation 3 
46 pee : LIST - cenpi ete List of records to file : 
47 : MODIFY = change one or more values for a user ; 
48 8 : REMOVE = remove a user record : 
49 9 : RENAME - rename a user record (COPY; REMOVE) : 
31 39 } SHOW - display the values from a user record : 
é 3g 1 | ENVIRONMENT: 3 
S4 b2¢ AUTHOR: Henry M. Levy, CREATION DATE: 1-June-1977 ; 
56 056 i MODIFIED BY: ; 
05 : F 


Change all internal messages to calls to LIBSSIGNAL and 
the message utility -- place all messages in UAFMSG.MSG 


V03-024 LY0494 Larry Yetto 11-JUN-1984 12:59 
Fix noise error message 4 iy J from ADD/ID/USER=* caused 
by a flag not properly being s 


UAF MAIN 1b-50 Sep-19 VAX-11 Bliss-32_V U 
yOr000 =307} 382 9¢: 3 33 DISKSVMSMASTER: cUare She UAFMAIN.B32; ? ef v 
$ 28 38 1! v03-024 JRL 0036 Lawson, Jr. 07 -Ayg= -1984 17:08 3 
3 1! e UPGRADE, DOUNGRADE, TMP INC PRMJNL privileges. This . 
:; 60 01 oy : temporary work-around; t is marked in the right-hand ; 
: 2 61 ! margin with !** in routine PRINT _PRIV. : 
; ef : ii v03-023 JRLO027 n R. Lawson, Jr. 5-Jul-1984 11:01 : 
> 64 4 1! Add MODIFY/SYSTEM. PASSWORDeaeexx to modify the system ; 
: o? bez : } password. : 
Be Oe 1 i vO3-022 4RL.0029 hn R. Lawson, Jr 25-Jul-1984 10:47 ; 
: eB 6¢3 : } Find better nenes “for UAF$_NEWMSG10 and UAFS_NEWMSG15 : 
: $3 01: v03-021 JRLO020 John R. Lawson, Jr. 09-Jul-1984 15:51 3 
: q} 38 : Bark when a proxy name is changed with the RENAME command. : 
; ig $78 1! v03-020 JRLO017 n R. Lawson, Jr. 02-Jul-1984 22:13 : 
; 7 074 1/3 Modi ty GET_UAF RECORD so that it does not get the system ; 
: ie Bae? : password record. : 
a $077 1 V03-029 JRLOO13 John R. Lawson, Jr. 02-Jul-1984 12:28 3 
; 0078 1! oeen privileges of users in groups less than .EXESGL_SYSUIC ; 
: g Be | ule 3 
; a 0081 1: v03-028 JRLO010 John R. Lawson, Jr. 25-Jun-1984 15:56 ; 
3 Hf 00. ¢ 1! Changed 'X'/'=" to ‘#'/'=" in primary/secondary access : 
PE BB oti : 
> 0085 1 | v03-027 JRL0008 John R. Lawson, Jr. 21-Jun-1984 14:00 ; 
; 686 0086 1! Add support for the /PUDEX PIRED qualifier (pre-expired 3 
: 14 0087 : } password). : 
: 89 1 i V03-026 JRL0006 John R. Lawson, Jr. 20-Jun-1984 12:28 ; 
: of : Obliterate operator's console messages : 
i 1 v03-025 JRLO002 John R. Lawson, Jr. 15-Jun-1984 09:55 ; 
: (9 1 ; 
s . 3 : 
; © 1 ! 3 
s 9? 1! 3 
: 1 : 
; 100 1: ; 
; 101 1! 3 
; 4 1! 3 
; 9 1! 3 
: 104 ££ 3 
s 105 1! 3 
z 106 1 j : 
: 108 1 ; 
; 09 , | : 
; 110 1! 3 
443 1 i 
i OHS 1 i 
: 14 1! 


1 v03-023 MHB0150 Mark Bramhall -May-1984 

1 Remove unused reference to TPARSE definitions. 

1 Add DISPECONNECT flag. 

: Add security auditing for SYSUAF/NETUAF changes. 

1 VO3-022 LY0474 y Yet 9-APR-1984 08:32 
1 Zero the login tice a last login fields 

' on a@ Copy operation. 

1 v03-021 LY0466 Lar 22-MAR-1984 13:52 
: hdd support for the "Yaaets’ data base functions 

' v03-020 ACG0397 Andrew C. Goldstein, 24-Feb-1984 23:21 
1 


Clean up display formatting 
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v03-019 ACG0397 Andrew C. Goldstein, f-F ot 1964 16:27 
Add DISREPORT to flags, clean up record locking 
V03-018 ACGO0388 Andrew C. Goldstein, 12-Jan-1984 19:21 


Add command input to handle new UAF features; 
general code cleanup 


V03-017 ACGO0385 Andrew C. Goldstein, 6-Jan-1984 18:28 
V4 UAF format change; remove read-only under installed 
SYSPRV feature; misc. code cleanups 


V03-016 TMKO001 Todd M. Katz 10-0ct-198 
Add JTQUOTA (job-wide logical name table creation quota) 
qualifier. 
V03-015 LMP0153 L. Mark Pilant, 13-Sep-1983 11:57 
Add minimal support for alphanumeric UICs. 
014 JWT0105 Jim toosus 30-Mar-1983 
Small changes to CLITABLES implementation. 
013 JWT0104 Jim Teague 29-Mar-1983 
Add CLITABLES qualifier. 
012 wMC0001 Wayne Cardoza 15-Mar-1983 
Add MAXDETACH qualifier. 
011 JWT0097 Jim Teague 23-Feb-1983 
Fix RENAME problem with proxy entries. 
010 JWT0096 Jim Teague 08-F eb-1983 
Log NETUAF changes to console, too. 
009 JWT0087 Jim Teague 11-Jan-1983 
Change SYSWSQUOTA for created UAFs to 350 


008 JWT0082 Jim Teague 
Fix problem with LIST/PROXY. 


007 JWT0079 Jim Teague 15-Dec-1982 
Enlarge output field for BYTLM; reset pending 
mail count for COPY operations. 


006 JWT0072 Jim Teague 03-Dec-1982 
Add global longword which can be patched to 
enable/disable console logging of SYSUAF mods. 


05-Jan-1983 


WR =O ODNAUE WIN HO OONAWNE WN OS OONAUN EWN @ OOWONAUE AN OOOO 


005 JWT0069 Jim Teague 24-Nov-1982 
Allow redefinition of sys$output. 

004 JWT0057 Jim Teague 21-Sep-1982 
Add a message to tell whether or not NETUAF was 
modified. 

003 042 Teaque 15-Jul-1982 


JWT004 Jim 
Make SYSUAF.LIS and NETUAF.LIS world noread. 
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UAFMAIN 16-Sep-1984 02:16: VAX-11 Bliss-32_ V4.0-74 Page 4 Ui 
VOue000 19-808-1382 9g: 30:38 DISKSVMSMASTER: CUAF .SRC JUAFMAIN.B32;1 ° (1) vi 
: 17 17 1! 002 JWT0036 Jim Teague 08-Jun-1982 
: \fe \f ! } Add full wildcarding to show/proxy 
: 175 175 1 001 JwT0022 Jim Teague 17-Mar-1982 
; 176 178 1! Fix bug that caused failure to reparse command Line for 
:; 7 177 1! wildcard modifications. List default device on its own 
; «#64178 178 1! Line for show/full. 
: #179 HFA 1! 
; 180 180 1 !-- 
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1} 

! Require files 

1 require 

! *LibS:uafreq'; 

3 

} INCLUDE FILES: 

: Library 'SYSSLIBRARY:L1IB.L32'; 

1! 

: TABLE OF CONTENTS: 

1 

1 forward routine 

1 start, 

1 setup : novalue, 
1 add_uaf : novalue, 
1 add_proxy : novalue, 
1 remote_parse, 

1 copy_uaf, 

1 create_proxy : novalue, 
1 modi fy_uaf : novalue, 
1 modify_rec, 

1 remove_uaf : novalue, 
1 remove proxy : novalue, 
1 rename_uaf : novalue, 
1 ociust proxy : novalue, 
1 defaulf_uaf : novalue, 
1 List_proxy : novalue, 
1 List_uaf : novalue, 
1 show_user_uaf  : novalue, 
1 show_proxy : novalue, 
1 locafte_proxy, 

1 get proxy record, 

1 isplay_proxy : novalue, 
1 wild_user 

1 displey_briet. 

1 classify_priv, 

1 display_full, 

1 erent ey .pewrs : novalue, 
1 convert_time : novalue, 
1 rint priv : novalue, 
' uild_ini_recs : novalue, 
1 et_user_record, 

1 ocate_user, 

1 get_uaT_record, 

1 get_cmd_Lline, 

1 ask : novalue, 
1 fmt_sys_msg : novalue, 
1 aocout, 

1 help_uaf : novalue, 
1 exit_uaf : novalue, 
1 SIGNAL_SYNTAX : novalue, 
1 acc$exit : novalue, 
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controlling code 

open initial files 

insert new user record 

insert new proxy record 
parses ‘‘node: : remoteuser 

copy user record 

create NETUAF.DAT proxy file 
update user record(s) 

update a user record action routine 
remove username from file 

remove a proxy record 

rename user record 

implicitly remove/update proxy record 
change default recor 

List proxy entries in NETUAF.LIS 
List file routine 

display user record 

display proxy record at terminal 
access given proxy record(s) 

read single proxy record 

format and output a proxy entry 
user wild card routine 

writes a brief user display 
classifies contents of priv vector 
writes the full user display 

erent ay hourly restrictions 

convert time value to string 

print or ivi Lege bits 

uild initial file records for default 
and system manager 

et username and lookup record 
ookup user record in 

routine to deal with record locking 
input user command Line 

prompt terminal for input 

output system message file message 
output formatted message 

help routine 

normal exit routine 

missing qualifier ; 

exit and cleanup routine 
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39 uaf$mod_sys_pwd : novalue, ! modify the system password 

re security audit : novalue; : Perform & secur ty audit 

: ae f tch = jsb (regist ist 3 ist 4 

mg_match = jsb (register = register = register = 4, 
4 oe renister = gs : Rotused (16, 19): 


; EXTERNAL REFERENCES: 


CON U 


external 
C 
¢ 


; 1 

; 1 

H 1 

:; 24 | 

s 26 1 

; 24 1 

s 26 1 

5 4 1 

i $e 

> 249 6 1 

3 29 8 1 

3 1 1 

3 26 0 1 

3 @ 0 1 

> 254 0 1 

s goo 0 1 

; 256 03 1 LbrSoutput_help, 

3 gor 03 1 Lib$get_foreign, 

: oo 03 1 Lib$Sget_input, 

; 259 03 1 LibSput_output, 

3 sod 03 1 fmg$match_name : fmg_match, 

; 261 03 1 cl s4¢. parse. 

; $06 03 1 cli$dispatch, 

; £ 03 1 cli$present, 

3 soe 03 1 cli$get_value, 

; 265 03 1 update_record, ! modify all specified fields 
; 266 0 1 arse_wild, : perees a wildcarded user specification 
; 267 03 1 giS$hpwd ! hash password routine 
> 268 03 1 uaf$add_ident_recbuf, 

: 269 03 1 uaf$build_holder, 

; 270 03 1 uaf$find_uic , 

; 271 03 1 uaf$remove_ident_recbuf, 

; sié 03 1 uaf$write_rights; 

: of 03 1 

3; 274 03 1 external 

; 275 03 1 EXESGL_SYSUIC long , 

: 276 0370 1 rdb_header_flag : byte , 

3 ere 0371 1 rdb_list_flag  : byte, 

; 278 0372 1 attributes : long , 

: 279 tte 1 holder : $bblock(8] _, 
; 280 374 1 ident : $bblock (4] , 
: 281 0375 1 authorize_commands, ! AUTHORIZE command parse tables 
3 HG $378 ' prvSab_names; ! address of privilege name table 
3; 284 0378 1 

: Be 0380 MACROS 

; a9 38 68 

; 288 3 § 1 macro 

: 289 ; 1 

: 290 i] 4 1 namelen (x, y) = 

: 291 i 5 ¥ pegin 

3 4 i, § 1 builtin 

s 2 M 1 locc; 

3 294 _ 3 1 register 

: 295 M 1 r0 = 


vw 
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var} ts 
v04-000 


9 M 039 loce (Zref(" '"), %ref(x), y; 0); 

a M 039 x- wr 

4 4 end%, 

00 M 039 cstringl] = (uplit byte (X%charcount (%string (Xremaining)), 
8 2 . tstring tiremaining)))%, . = . 
08 4 fatalC] = (fmt_sys_msg (Xremaining); acc$exit ())%, 

05 3 ; Macros to check for success or failure from RMS 


rmsbad Cote tng) = (not (rmserr = string)) %, 
rmsok (string) = (rmserr = string) %, 


! Macros to set up and write an FAO string. 


faomac (faomsg)(] = 
begin 
faodscCdsc$w_length] = . praeweg<@ 8>; 
faodscldsc$a_pointer] = Noyewes, + {; 
$fao (faodsc, rabptrlCrab$w_rszj, disdsc Scomma (%remaining) 

%remaining); 

$put (rab = .rabptr); 
end %, 


SOOO OCOCOSCOOCOCOCOOOOOSOSOSOSOSOSOSOSSOSOSOSOSOSOSOSOSOOOOOOOOOOOOOOOOOOOOOOOOO 


$comma[] =, %, 
output_null = 
begin 


rabptrCrab$w_rsz) = 0; 
$put (rab = .rabptr); 
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end %, 
' 
! Macro to create string descriptor for command parameters and 
qualifiers 
'  sdfa) = 
3 bind name ('SD_',a) = Sdescriptor (a)%; 
0 sd ( 
1 ‘token’, *token2', ‘brief’, *full’, 
¢ ‘add_identifier', *remove_identifier', 
2 *modify_identifier' 
35 : 
36 ield 
t3h descr. tields = ! Define the fields for a DESCRIPTOR 
3@ 
439 length = Cdsc$w_length], 
440 dtype = [dsc$b_dtype], 
441 class = Edsc$b class], 
ry pointer = (dsc$a_pointer] 
44 tes; 
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; 3 M0447 1 $Sbblock Cdsc$k_s_bln] field (descr_fields) 
: 4 M t¢8 1 preset ( Clength] = 6° if 
: 5 M0449 1 dtype = dsc$k_dtype_t, 
: 6 M0450 1 class = ggok.class_s, 
> aor Bees 1 pointer] = 0)%; 
; 358 128 1 
; 359 4 1 macro 
; 360 M0454 1 qualstr_desc (string) = 
: 30) M0455 1 $bbTock Cdsc$k_s_bln] field (descr fields) 
3 6s M0456 1 preset ( Clength) = (Xcharcount(string)), 
; M0457 1 dtype = dsc$k_dtype_t, 
: 364 M bree 1 class = dsc$k_class_s 
3 o2 FR : pointer] = (uplift byte (Astring(string))))%; 
; n 
$ Ht Bre) : sd_attribresource : qualstr_desc (‘attributes.resource') ; 
; 369 0463 1! 
; 70 0464 1 ! EQUATED SYMBOLS: 
s Sri 0465 1! 
$ oe 0466 1 Literal 
: 37s 0467 1 cmdbufmax = 508, ! maximum command Length 
: ae 0468 1 false = 0, ' Logical false 
:. 30s 0469 1 true = 1, ! Logical true 
3; Se 0470 1 update_records = 0, ! flag for proxy file adjustment 
; oer 0471 1 remove records = 1, oe si * “3 ‘3 
; sre 0472 1 copy_fla = 1, ! used in routine copy_uaf 
3; ory 04735 1 rename_f a9 = 1, ' used in routine rename_uaf 
; 380 0474 1 byte_lengt = 8 ! bits per byte 
; we 0475 1 word_length = 16, ! bits per word 
3 382 0476 1 Long. Length = 32, ! bits per longword 
; 383 0477 1 retry_rl = 8 ' number of retries for a locked record 
; «384 0478 1 sleep_rlk = 560, ! ms to sleep before retrying 
s 3e5 0479 1 cr = 13, 
; 386 0480 1 Lf = 10, 
3 Ser 0481 1 zero = 0 
; 388 0482 1 cmdbuf len = 1624; ! size of user command buffer 
; 389 0483 1 
; 390 0484 1 global Literal 
: 391 0485 1 encrypt = uaf$c_purdy_v, ! encryption algorithm to use 
: 4 0486 1 disbuflen = 132; ! size of display file output buffer 
; 39 0487 1 
3; 394 0488 1 bind 
: 395 489 1 sysuaf_string = uplit byte (‘SYSUAF'), 
: 38 490 1 netuaf_string = uplit byte ("NETUAF'), 
; 491 1 mod_act_dsc = $descriptor ('modified'), 
; 398 0492 1 add_act_dsc = $descriptor (‘added’) 
: 399 04935 1 rem_act_dsc = $descriptor (‘removed’) 
: 400 494 1 fao_lin_dsc = $descriptor ("PID='XL 'AS !AS !AS record !AS on !%D'), 
: $3) res i dbl_colon = $descriptor ('::"), 
; 2h2 185 ' : Define the system delta time to sleep before retrying to GET a locked record. 
3 ona +44 ! ; wakedelta = uplit long (-10*1000*sleep_rik,-1), 
; £09 501 1 ! Default values for authorization file record. These values are 
; 408 288 1 ! only used when a new authorization file is created. If the file 
; 409 5 1 ! already exists, the default values are read from the first file 
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o 
o 
°o 
3 
a 
a 


1! 

1! 

1 defuser = cstring ("DEFAULT'), ! default username 

1 defpass = cstring ('USER'), ! default password 

1 defclitabl = cstring (‘DCLTABLES'), ! default CLI tables 

1 defact = cstring (''), ! default account name 

1 defcli = cstring (‘DCL'), ! default command interpreter 

1 defowner = cstring (''), ! owner's name 

1 deflgicmd = cstring ead ! default login command file 

1 efgrp = $0, £00 5 ! default group j 

1 defmem = %0'200', ! default member 

1 defdir = cstring (‘CUSER]'), + default directory name 

1 defdev = cstring (''), ! default device name 

1 defbiolm = 6 ' default buffered 1/0 Limit 

1 defbytlm = 4696, ! default buffered 1/0 buffer space 

1 defdiolm = 6 ! default direct I/0 Limit 

1 deffillm = 26, i default open file Limit 

1 defflags = 0 ' default flag bits 

1 deftqcnt = 16, ' default time queue entries 

1 defprccnt es 2, ' default subprocess count 

1 defpri = 4, ' default process priority 

1 de fquepri = 4 ' default queue fend 

1 defwsquota = 260, ! default york ing set Limit 

1 defdfwscnt = 150, ! “default’’ working set default size 

1 defwsextent = 500, ! default working set extent 

1 defcputim = 0 ' default CPU time quota 

1 defastlm = 16 ' default AST queue Limit 

1 defpgflquota = 10600, i default paging file Limit in pages 

1 efenqlm = 10, ! default enqueue Limit 

1 defpbytl = 0, ! default paged buffer 1/0 Limit 

1 defshrfillm = 0, ! default shared file Limit 

1 defmaxjobs = Q, ! default maximum concurrent jobs 

1 defmaxacctjobs = 0, ! default maximum concurrent group jobs 

1 defmaxdetach = 0 ! default maximum detached processes 

1 get itquete = 1624, ' default job-wide Lpetcat table quota 

2 defprimedays = ( ; ' Sat, Sun are default non-prime days 

§ (1 * $bitposition (uaf$v_saturday)) or 

: 3 * $bitposition (uaf$v_sunday 

1 defhours So Ce: ' default all hours to allow access 

1 defpriv = yet re ( ! default privilege vector 

3 (1 * $bitposition (prv$v_netmbx)) or 

; . ase enees tren (prv$v_tmpmbx) ) | 

1 defpwdlength = 6, ' default min password Length 

! defpwdlife = uplit (0,0), ! default password Lifetime 

1! 

1 ! The following are the default values for the SYSTEM user. When 

: a new file is created, a system manager record is created. 

1 sysuser = cstring (‘SYSTEM’) 

1 syspass = cstring (‘MANAGER'S 

1 sysclitabl = cstring ('DCLTABLES’), 

1 sysact = cstring (‘SYSTEM’), 

1 syscli = cstring ("DCL"), | 
| 
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; 467 . sysowner = cstring ("SYSTEM MANAGER'), 
; 468 see 1 syslgicmd = estring cays 
; 469 65 1 sysgrp = Zo'l', 
; 470 564 1 sysmem = fo'4', 
: 471 565 1 sysdir = cstring ('CSYSMGRI'), 
: tts 208 1 sysdev = ‘ tring (''), 
3 467 567 1 sysbiolm s 
: 474 0568 1 sysbyt lm = é 480, 
> 475 £334 1 sysdiolm = 12, 
: 476 0570 1 sysfillm = 20, 
: 477 0571 1 sysflags = 
: 478 05 7¢ 1 systqcnt = 26, 
3; 479 575 1 sysprccnt = 10, 
: 480 0574 1 syspri = 4, 
: #481 0575 «(1 sysquepri = 4 
: ret p28 1 sySwsquota = 350 
: 48 0577 1 syswsextent = 1084, 
> 484 0578 #1 sysdfwscnt = 150, 
> 485 0579 «#1 syscputim = 8 
: 486 0580 1 sysastlm = 26 
: 487 0581 1 syspgflquota = 10600, 
; 488 p28¢ 1 sysenqlm = 20, 
; 4489 0583 1 syspbytlm = - 
; 490 0584 1 sysshrfillm = Q, 
: 491 0585 1 sysmaxjobs = 0, 
3; 49 0586 1 sysmaxdetach = 0 
: 49 0587 1 sysjtquota = 1624, 
; 494 0588 #1 sysmaxacctjobs = 0, 
: 495 0589 2 sysprimedays = ( ' Sat, Sun are default non-prime days 
; 496 0590 ¢ (1 * $bitposition suatey .sotureey?? or 
3 497 0591 (1 * $bitposition (uaf$v_sunday) 
; 498 0238 1 ays 
; 499 0593 1 syshours = 0, 
; 500 0594 1 syspriv = uplit (rep 2 of (Ax"FFFFFFFF')), 
s wo} 0595 1 syspwdlength = 8, ! default min password length 
3 206 0596 1 syspwdlife = uplit (0,0); ! default password Lifetime 
ae. 0597 1 
3: 504 0598 1! 
; 505 0599 1 ! GLOBAL STORAGE - must be before OWN for initialization purposes 
; 506 0600 1! 
; 507 0601 1 global 
; 508 bens 1 disbuf : vector [disbufien. byte], ! display buffer 
; 509 603 1 disdsc : block C8, byte] initial (disbuflen, disbuf) ; 
; 219 ren 1 
3 $11 605 1! 
: 21¢ 606 1 ! OWN STORAGE: 
; 2} 898 1! 
3 «514 608 1 own 
gs 30S beth 1 username_buf : block Cutts ysernane. byte], 
: 216 $19 1 pcb_sts : bitvector (32), 
: a1 ol¢ 1 eernene dsc : vector initial (0, username_buf), 
3 23% 615 1 recname_dsc : vector ° 
: $9 614 1 file_dsc : vector initial (6) 7 : 
3 Sel 615 1 mod_default, ' DEFAULT record being modified by MODIFY command 
; 255 0616 1 modi ty. flag  . & tong. ' SYSUAF modified 
ee: 0617 1 netuaf_modified, ! NETUAF modified 


vara HEROEHM BESS BPDNRAEHER | 


-11 Bliss- 4.0-74 Page 
Vus -0 -Sep-19 DISKSVMSMASTE a UAE Ske SUAFMAIN.B32:1 . (2) 
: $26 0618 1 rename_ph2 : byte initial (false), 
3 95 18 1 olduserlen : ang. 
3 é 620 1 oldusername : vector (Cuaf$s_username,bytel, 
: i 621 1 newuserlen $ ong. 
; 528 06 ¢ 1 newusername : vector (Cuaf$s_username,bytel, 
: 529 06 1 cmdbu : vector Cemdbuflen, byte], ! command buffer 
; i 0624 1 default size : word 
3 (Del 0625 1 default=record : block pyefBe Length, byte], ! default record held here 
3 235 06 § 1 pwddsc : block (8, byfel, ' password descriptor 
: 35 06 1 insize : long, ' number of input chars 
; 534 0628 1 brief_flag : Long, ! display option 
: 2 5 36 9 1 full Flag : long, ! display option 
3 6 630 1 header_flag Long, ! output header or not? 
Bo Bay 
: 539 P 06 § 1 infab  : $fab ¢ ! FAB for terminal 1/0 
; an9 . +9 ¢ : ee = (get, put), 
3 rat = cr, 
; 2¢§ Pp 0636 1 fnm = 'SYSSINPUT' 
: ah $638 i ns 
: 545 P $639 1 inrab  : $Srab ( ! RAB for terminal 1/0 
; 546 P 0640 1 rac = se 
3; 547 P 0641 1 rop = pmt 
; 548 P 0O%§ 1 fab = infab 
: 38 boca | 6 
: 551 P 0645 1 outfab : $fab ( 
2 te EE os 
3 rat = cr, 
3 554 P 0648 1 fnm = ‘SYSSOUTPUT' 
ope ace : 
: 320 bees } lstnam : $nam (), ! needed for the DLT option 
: 559 P peeg 1 lstpro : $xabpro ( 
: 560 P 0654 1 gre = (rwd,rwd,rw) 
: 268 P be3? 1 istfab : $fab ( ! FAB for UAF Listing file 
: 3ee P O6s9 | + Goh oa 
3 rat = cr, 
; 68 P 0660 1 fnm = ‘SYSUAF.LIS', 
3 4 P 0661 1 shr = nil, 
3 P 666 1 org = seq, 
; 569 P bee 1 rfm = var 
: 570 P 0664 1 mrs = disbuflen, 
: 4 4 665 : 4 = Hoy 
3 xab = lstpro 
H 86? )° . 
: 575 P 089 1 lstrab : $rab ( ! RAB for UAF Listing file 
: 6 P 3 rac = seq 
: 57 P 0671 1 rbf = disbuf, 
3; 578 P ie 1 fab = lstfab 
; 579 731 = 
; 580 7% «1 
| 
| 
| 
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: 1 or? } nlstnam : $nam (), 

: q P orf nlstpro : $xabpro ( peg 

3 ro = (rwd,rwd, 

i $8 é wd,rwd,rw 

: P 0681 1 nistfab : $fab ( | FAB for NETUAF Listing file 

3 3 P one 1 fac = put, ° 

s 589 P re 1 rat = ¢r 

: 590 P 0684 1 fnm = "NETUAF.LIS', 

: 4! . ret : shr = nil, 

3 rg = seq, 

: 338 p OeRy | rte © ver 

; 594 P tt 1 mrs = disbuflen, 

s 395 P 0689 1 nam = nlstnam, 

; 596 P 0690 1 xab = nlstpro 

BBY : 

: 599 P 0693 1 nistrab : $rab ( ! RAB for NETUAF Listing file 

; 600 P 0694 1 rac = seq, 

; 601 P 0695 1 robf = disbuf, 

; & P 0696 1 fab = nlstfab 

Sie 's : 

: 605 P 0699 1 uafkey2 : Suather ( ! XAB for User number key 

; 606 P 0700 1 ref = 2, ! alternate key 

: 607 P 870) 1 posO = $byteoffset (uafSw_mem), 

; 608 p ie 1 siz0 = 2 

: 609 P0703 1 dtp = bne, 

; 610 P 0704 1 flg = (chg,dup) 

oie ee ; 

: gig P 0707 1 uafkey!1 : Suabhey ( ' XAB for Group number key 

: 614 P0708 1 ref = 1, ' alternate key 

; oi? : 344 : post = poyteot feet (uaf$l_uic), 

; 20 = 

; 619 P0711 1 dtp = bné, 

; 618 P org 1 flg = Cchg.dup) . 

; 619 P 071 1 nxt = uafkey2 

oe ; 

: 632 P Org 1 uafkeyO : Sxabkey ( ! XAB for USERNAME key 

3; 6 P 071 1 ref = 0 ‘ or imery key 

; 624 P ng 1 posQ = Sbyteottset (uaf$t_username), 

; 625 P 071 1 siz0 = uaf$s_username, 

3; 6 $ P 0720 1 nxt = uafkeyT 

% 5) | 

: 6 3 P 07 : 1 uafpro : $xabpro ( ! XAB for file protection | 

3; 6 P 0724 #1 pro = (rwed, rwed), ! deny world access 

; ? 1 P i 5 ' eae = uafkey0 | 

: 6 § 455 ' 

; 6 P 07 3 1 uaffab : $fab ( ' FAB for work file | 

3; 635 P 07 1 fop = cif, 

a. 6 P 07350 1 fac = eek pyt. del, upd), 

; 6 P 0731 1 fnm = "SYSUAF', | 
| 
j 


3; 6 P 07 1 dnm = '.DAT', 

; §38 P 07 5 1 shr = (get, put, del, upd), 

; 640 P0734 1 org = idx, 

; 641 P0735 1 rfm = var 

; b4¢ P 07 6 1 mrs = uaf$c_length, 

; 64 P 07 1 alq = 10, 

BEY ooh 5 

3 xab = uafpro 

3; 4646 740 1 ), . 

: 64 741 #1! 

; 648 rg ! } FAB for NETUAF Proxy Login File 

$ e360 744° «1! 

3 63) P Bote 1 nafkey1 : mnethey ( 

; O26 P yg | 1 ref = 

s 65 P 0747 1 posO = Sbyteoffset (naf$t_localuser), 

> 654 P0748 1 siz0 = naf$s aupcatuser.. 

3 $99 P0749 1 flg = (chg,dup) 

3 026 0750 1 Rie 

: 82h p ore | fay 1 Sncthey 

3 nafke xabke 

: 659 Pores | : bret = 

; 660 P 0754 (1 whe | = rie (naf$t_remname), 

; 661 P 3P 32 1 $iz0 = $s_remname, 

3 $66 P 0756 1 nxt = natkeyT 

; 66 0757 1 " 

> 664 0758 1 

; 665 P 0759 1 nafpro : $xabpro ( 

; 666 P 0760 1 pro = (rwed, rwed), 

; 667 P 0761 1 nxt = nafkeyOd 

; 668 B78 1 P 

3 9 07635 1 

; 670 P 0764 1 naffab : $fab ( ' FAB for NETUAF 

: 8h) P ores | ar & lock, wt, Gok, tells 

; ac = u el, u 

; NS P0767 1 ine © igi OF, . 

: 674 P 0768 1 dnm = 

3s 675 P 0769 1 shr = cqet, put, del, upd), 

; Or P0770 1 org = 

s 67 P 0771 1 rfm = fix 

; 678 P B58 1 mrs = nat$c_Length, 

; 679 P0773 1 alq = 10, 

3 P0774 1 deq = 10 

: 1 P 0775 1 xab = nafpro 

3 § 776 «(1 : 

: 777: «1 

3 778 1! 

3 5 779 1°! GLOBAL STORAGE: 

3 780 1! 

3 781 1 global 

: 7 ¢ 1 faodsc : block C8 byte n't Purpose fe tee Rte desc 

3 rabptr : re ck Crab$c_blin, yte utput 
9 783 (1 b f block 63: _bl 5 R 

; 6 7 1 uel 33f- itt : prock nsa_s_sysuaff, piel SYSUAF sr nBal flags 

; 691 785 1 : Control mask for AUTH 

: 69 786 1 “¥ aes : ong mes tial (false), processing by acc 

; +69 7 1 match_token : vec or Cnaf$s_ tacved HG byte Saved pee token 

; 694 7 1 match_tokenlen : long, 


5ep-1984 VAX=11 Bliss-32.V4.0-74 p 
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695 789 wild_netuser, ! wildcard access to proxy entries 

098 $9 call_count : long initial (0), ; goynter for re rocess ng cmd Line 

69 7 tokendsc : block ts. byte) preset ( [dsc$b_classJ=dsc$k_class_d), 

698 79 cmdlindsc : block . bytel, 

9% 79 netuaf_exists, ! A self-explanatory flag... 

00 794 rdb_exists : Long, 

4 795 rmserr : long ' save rms error codes here 

4 e rightslist_modified : byte, ! RIGHTSLIST modified flag 

704 738 Record buffer for file 1/0. Records are generally read into RECBUF, 


modified, and output. 


SES 


7 

. 
7 recbuf : block Cuaf$c_length, byte], 
708 netbuf : block pia fec-tenger. byte ° 
oy Be } UAFRAB is global to allow UPDATE_RECORD to modify RABSW_RSZ. 
at P 0 Be uafrab : $Srab (! RAB for work file 
71 P 080 krf = 0, 
714 P 0808 kbf = recbuf Cuaf$t_username], 
715 P 0809 ksz = uaf$s_username, 
716 P 0810 usz = uaf$c_length, 
717 P 0811 fab = uaffab 
718 0 \¢ ° 
719 8 1 : 
ego 8 1% } RAB for NETUAF Proxy Login File 
73¢ P 0 1 nafrab : $rab ( 
7 P 081 krf = 0, 
724 P 0818 kbf = netbuf Cnaf$t_remname], 
725 P 0819 ksz = naf$s_remname, 
7 $ P 0820 usz = naf$c_length, 
7 P 0821 rsz = naf$c_length, 
728 P 8 § rac = ney 
729 P 08 fab = naffab 
7 0824 Pe 
731 0825 
7 $ 08 $ 
7 4 time_buf : block (8,bytel, ! current system time 
ee 828 pwd_flag : long, ! Password default flag 
7 P b8 0 outrab : $rab ( 
7 P 0831 rac = seq, 
( Pp ; rbf = disbuf, 
7 P seb = outfab 

5 . 


74 
Flag ot past ing to WILD_USER that a match was found. This flag 
is set by the action routine called by WILD_USER. 


found_match, ! found at least one wildcard match 


: Wildcard parsing flags set by PARSE_WILD for use in WILD_USER. 
uic_flag : long, 
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global bind 
tokenlen 
tokenptr 
rec_user_dsc 
rec a | ee 
symBol_str 
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= tokendsc (dsc$w_length]_: word, 

= tokendsc Ldsc$a_pointer], 

= uplit (uaf$s_username, recbuf cuefet username]), 

= uplit (uaf$s pwd recbuf uelsq pud J 

= cstring ('ABCDEFGHIJKLMNOPORSTUQWXYZ0123456789S_"); 
! valid username characters 


bind 
accprmpt = cstring (Zchar (Lf),"UAF> '), 
accprmpt2 = cstring (%char (l\f),'_ '), 
newmsg20 = cstring ("Do you want to create a new file? '); 


External messages 


external routine 
LIBSSIGNAL; 
external Literal 


UAF$_ADDERR, 
UAF$~BADSPC, 


UAF$_ADDMSG, UAF $_BADNODFORM, 
UAF $~BADUSR, UAF$~CLIWARNMSG, 
UAF $~CONERR, UAF$~COPMSG, 

UAF $~DEFERR, UAF $_DEF PwD 
UAF$_GETERR, UAFS~HELPERR, 
UAF$_INVRSP, UAF $_ INVUSERNAME , 
UAF $“KEYNOTUNG, UAFS-LSTERR 

UAF $-LSTMSG UAF $_MDF YERR 

UAF $ NAF ADDERR, UAF $NAFADDMSG, 
UAF $~NAF CONERR UAF $"NAF CREERR, 
UAF $~NAFDONEMSG, UAF $~NAFNOMODS . 
UAF $ “NAME TOOBI : UAFS$-NETLSTMSG. 
UAF $NAONAF UAF $-NOARG 

UAF $-NODT0081G UAF $-NOMODS 

UAF $~NOUSERNAME , UAF$~PREMMSG 

UAF $~RDBDONEMSG, UAF $_RDBMDF YERR, 
UAF $~RDBMDF YMSG, UAF $_RDBNOMODS , 
UAFS~REMERR, UAFS-REMMSG, 

UAF S~RENDEF UAF $~RENMSG 
UAF $~RONLY UAF$~SHOW_ERR, 
UAF$~SYSMSG2, UAF $~UAEERR 
UAF$~ZISQUAL, UAF $~ZZPRACREN; 
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netuaf_modified = false; s 
fy_flag = false; ! note no modifications 


' 
Set up terminal 1/0 


if rmsbad (status = Sopen (fab = infab)) 
then 


3 1 1 &sbttl ‘start = controlli de' 

3 88 9 § routine start = sinha 

; 810 9 begin 

; 81) 9 

: Big 306 5 i 

: B14 4 ; i FUNCTIONAL DESCRIPTION: 

: 1 9 3 i Main procedure of AUTHORIZE. Call SETUP to initialize 
$ 1 910 ! all needed files. Prompt the user for rhe functions which 
: 518 ae he/she wants, and call the proper function service routine. 
: 820 O38 i INPUTS: 

Bo BNE 

3 ! none 

; 8 91 ! 

; 824 315 ! IMPLICIT INPUTS: 

s 6825 918 ! 

Bt Ba tj tee 

: 526 09 1 2 | OUTPUTS: 

2 8 

; 83¢ 09 3 { IMPLICIT OUTPUTS: 

Be PPR a 

; 836 0929 2 | ROUTINE VALUE: 

3 tT 0930 ! 

; 838 0931 ! none 

3; 839 O36 ! 

; 840 09 ! SIDE EFFECTS: 

: Bap 0935 . 

: ! one 

; Be 8 6 t= 

3; B44 0937 

a ee bak em 

3 status; 

: Bee o346 

$ ma 

3; 849 B2e§ . cmdlindsc : vector; 

; g20 Oeee bind 

; Be 945 foreign_cmdlindsc = uplit (cmdbuflen, cmdbuf); 
: 854 rightslist_modified = false; 


Wr —O OO you 
oo 
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NOUS WIN —O 


signal_stop (.status); 


veh 


N 
5 
6 


79 


71 


7 
7 
74 
75 
7 
7 


S383 


oO SEES ER 


wOwWOwowowovnowownowovnvd 
ROO 2 


start = controlling code 


997 


SSEReSSSss 


PFPA AWA WIWNAAAIAPIPIPINI HAHAH BE PE 


Oa a dd ed ot ot ot = OOOO 


+ + 
wn 0 0@ 


11 


if rmsbad (status = $connect (rab = inrab)) 
signal_stop (.status); 


$Screate (fab = outfab); 
Sconnect (rab = outrab); 
setup (); 

! 


i Files have been initialized Prompt user for command Line 
and perform requested function. 


K 
1eageei18be FS:5833 | sbwAAS FERS cUAE sacSuarmain.e32:0°%° cho 


> a ahah (foreign.cmdlindsc, 0, cmdlindsc) and .cmdlindsc [0] neq 0 
! 


If defined foreign, and there are commands on the Line... 


begin 
cmdlindsc C1] = cmdbuf; 
. (status = cli$dcl_parse (cmdlindsc, authorize_commands) ) 
en 
beein 
cli$dispatch (); 
return true; 
end 
else 
; See if no CLINT exists (Kludge City, USA 37916) 
if .status eql cli$_noclint 
then 
signal_stop (cli$_nocLlint) 


e 
acc$exit () 
end; 


while true 
do 
begin 
i Input the command Line tah ing care of continuations. Pull off 
! the first token, assuming it 1s the command name, and look it up 
in the table of commands. 
y get_cmd_line () 
en 
7 (status = cli$dcl_parse (cmdlindsc, authorize_commands) ) 
en 


begin 
ch$fill (0, uaf$s_flags, uaf$gl_ctlmsk); 
cli$dispatch (); 
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4 en 
el 


end; 
return true; 
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$e 
4 »Status eql cli$_noclint 


en 
signal_stop (cli$_noclint) 
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-TITLE UAFMAIN 
. \V04-000\ 


-PSECT S$PLITS,NOWRT,NOEXE,2 
\token1\ 


cou 
ce 3. 
> 
-> o> 
== wn ~o 
a 


Qe 
a 


dentifier\ 


. 
o 
— 
Lael 
wn 
-—N- FZ Ving 
* euv-+v 


LON 
-ADDRESS P.AAJ 
ASCII \remove_identifier\ 


-BLKB 

-LONG 17 

ADDRESS P.AAL 

ASCII \modify_identifier\ 
-BLKB 

LONG 7 

-ADDRESS P.AAN 

eASCII \attributes.resource\ 
ASCII \SYSUAF\ 


eASCII = \NETUAF\ 
tt yaodt fied\ 


-LONG §8 
-ADDRESS P.AAS 
eASCII = \added\ 
BLKB 


LONG 


Ui 
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V04-000 start = controlling code eee ht rie EEL eS et ta 
00000000" 000c8 .ADDRESS P.AAU ; 
64 65 76 6F 6D 99 99 tt P.AAW: .ASCII \removed\ : 
D “BLKB 
009000 bs oS Pypeek: ODRESS P. AAW : 
5341 21 20 53 41 21 20 4 1 44 6 DC P.AAY: ASCII \PID=!XL !AS !AS !AS record !AS on !%D\ : 
3 ti 8 88 a2 oh at BS gs 2 20 8 tt OOEB : OS eee ee ; 
44 25 21 20 6E 6F OFA : 
900000 5 u104 P.AAX: .LONG 37 : 
09 0000" 00108 “ADDRESS P.AAY : 
A 3A bie P.ABA: to \ss\ : 
9000000 0110 P.AAZ: .LONG ; 
00 9000 * 00114 “ADDRESS P.ABA : 
FFFFFFFF FFB3B4CO 00118 P.ABB: .LONG  -5000000, -1 : 
07 00120 P.ABC: cBYTE 7 : 
54 4C 55 41 46 45 44 00121 "ASCII \DEFAULT\ : 
04 0128 P.ABD: {BYTE 4 : 
52 45 53 55 00129 “ASCII \USER\ : 
09 001200 P.ABE: .BYTE 9 : 
5345 4C 42 41 54 4C 43 44 001 6 "ASCII \DCLTABLES\ : 
00 00137 P.ABF: .BYTE 0 : 
901 8 *BLKB 9 : 
03 00138 P.ABG: BYTE : 
4C 43 44 00139 "ASCII \DCL\ : 
00 0013C P.ABH: <BYTE 0 : 
00130 “BLKB (OO : 
00 00130 P.ABI: :BYTE 0 : 
0013 BLKB 0 : 
06 0013E P.ABJ: <BYTE 6 : 
5D 52 45 53 55 5B 0013F ASCII \CUSERI\ : 
00 00145 P.ABK: :BYTE 0 : 
0146 “BLKB OO : 
00146 “BLKB 2 
00000000 00108000 00148 P.ABL: .LONG 1081344, 0 : 
00000000 00000000 90130 P.ABM: .LONG 0, 0 : 
06 0158 P.ABN: .BYTE 6 : 
4D 45 54 53 59 0159 ASCII \SYSTEM\ : 
07 O13 P.ABO: .BYTE 7 : 
ZeewvweWu @ 160 "ASCII \MANAGER\ : 
09 00167 P.ABP: .BYTE 9 : 
53 45 4C 42 41 54 4C 43 44 0168 “ASCII \DCLTABLES\ : 
: 171 P.ABQ: <BYTE 6 : 
4D 45 54 53 59 17 "ASCII \SYSTEM\ : 
03 00178 P.ABR: -BYTE 3 : 
4C 43 44 0017 “ASCII \DCL\ : 
OF 17C P.ABS: .BYTE 14 : 
52 45 47 41 4E 41 4D 20 4D 45 54 53 59 170 "ASCII \SYSTEM MANAGER\ : 
00 188 P.ABT: .BYTE 3 
18¢ “BLKB : 
8 0018C P.ABU: BYTE : 
5D 52 47 4D 53 59 53 8 1 "ASCII \CSYSMGRI\ : 
195 P.ABV: .BYTE : 
196 "BLKB : 
198 *BLKB 
FFFFFFFF® 00198 P.ABW: LONG -1(2) : 
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54 41 44 2E 
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SS 
4F 4E 40 4C 4B 4A 49 #48 47 6 45 44 43 42 41 
33 3c 31 OW OSA OSD 58 OUST 656 C55 C86 «5S 36 3 2 
SF 24 39 38 37 5 "1 
20 3E 46 41 55 oA 
20 5F OA 
20 6F 74 20 74 6€ 61 77 20 75 6F 79 20 6F 44 
69 66 20 77 65 6E€ 20 61 20 65 74 61 65 i; 63 
20 SF 65 «66C 
00000400 
00000000' 
0013 
01 O€ 
00000000' 
00000000 
00000000° 
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00000 SD eeeswoRD 19 
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TE 14, 1 
04 “ADDRESS P.AAO 
08 USERNAME _BUF : 
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O USERNAME “peas 0 
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038 RECNAME DSC: 


00040 FILE_DSC: 
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0004 “BLKB 
0048 MOD DEFAULT: 
0004¢ MoDIFY_FLAG: 
00050 NETUAF PORTED: 
00054 RENAME_PHe: 
00055 “BLKB 
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1A0 P.ABX: .LONG O, 0 
1A8 P.ABY: ASCII \SYS$INPUT\ 
1B1 P.ABZ: .ASCII \SYSSOUTPUT\ 
180 P.ACA: .ASCII \SYSUAF.LIS\ 
105 P.ACB: .ASCII \NETUAF.LIS\ 
1CF P.ACC: .ASCII \SYSUAF\ 
105 P.ACD: .ASCII \.DAT\ 
109 P.ACE: .ASCII \NETUAF\ 
1DF P.ACF: .ASCII \.DAT\ 
1€3 -BLKB } 
1E4 P.ACG: .LONG 2 
O1E8 -ADDRESS RECBUF +4 
BiFS P.ACH: .L 8 
ar SADDRESS RECBUF +340 
1F4 P.ACI: . E 
Bp she eASCII \ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789$_\ 
0213 
021B P.ACJ: .BYTE 6 
021 ASCII <10>\UAF> \ 
00 5 P.ACK BYTE 
00 ASCII <10>\_ \ 
00226 P.ACL YTE 34 
88 H ASCII \Do you want to create a new file? \ 
Ons 8 
00249 -BLKB 
0024C P.A -LONG 1024 
00250 ADDRESS CMDBUF 
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0007C NEWUSERLEN: 
00080 NEWUSERNAME 
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QOOAO CMDBUF: .BLKB 1624 
004A0 DEFAULT SIZE: 


BO eae -BLKB g 
O4A4 DEFAULT_RECORD: 
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QOA28 PWDDSC: .BLKB 8 
QOA3O INSIZE: .BLKB 4 
00A34 ied TF ‘ 
00A38 FULLLFLAG: : 
OOA3C HEADER_FLAG: 
-BLKB 4 
OOA4O INFAB: .BYTE 3 é 
00A41 -—BYTE 80 3 
00A42 WORD 0 $ 
OA44 LONG 0 F 
0A48 LONG 0 - 
OOASC LONG 0 3 
00A50 LONG 0 $ 
00A5S4 ~WORD 0 ; 
00A56 -BYTE 3 ; 
Beat -—BYTE 0 : 
0A58 LONG 0 ; 
OOASC -—BYTE 0 : 
OOASD BYTE 0 : 
QOASE BYTE 2 : 
OOASF -—BYTE 2 : 
00A60 LONG 0 : 
00A64 -LONG 0 3 
Bp aes -LONG 0 3 
OA6C -ADDRESS P.ABY 3 
BOAry -LONG 0 ; 
OA74 -BYTE 9 s 
Baar? -BYTE 3 
OA76 WORD $ 
BRare LONG : 
OA7C «WORD 0 3 
OA7E -BYTE 8 3 
OA7F BYTE 3 
OA80 LONG : 
0A84 LONG : 
OA88 ~ WORD : 
A8A BYTE ; 
A BYTE 3 
A LONG 3 
A INRAB: .BYTE 
A91 68 ; 
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2 
SOORE FAQDSC::.BLKB 
ABPTR:: .BLKB 4 
98 UAF$GQ_SYSUAFF : ‘. 
QOOAO UAFSGL_CTLMSK:: : 

00000000 000a8 BY ACCOUNT: : 
OOOAC MATCH_TOKEN: : 


oooEE “BLKB 
OOF MATCH. TOKENLEN: : 
000F4 WILDNETUSER: : 
00000000 000F8 CALL_COUNT:: 
00# O00FC TOKENDSC: : 
02 OO0FF BYTE 
00100 .BLKB 
00104 CMDLINDSC:: 
0010C NETUAF EXISTS: 
00110 RDB EXISTS: : 
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00114 RMSERR::.BLKB 
00118 RIGHTSLIST MODIFIED:: 
-BCKB 
00119 “BLKB 
0011C RECBUF::.BLKB 412 
Q06A0 NETBUF::.BLKB 00 
01 aie UAFRAB:: .BYTE 3 
44 00705 .BYT : 
0000 00706 . WORD 3 
00000000 00708 LONG 3 
00000000 0070C » LONG 3 
00000000 00710 - LONG 3 
4 0714 WORD (3) 3 
000 OO71A WORD 3 
00000000 0071C . LONG 3 
0000 007 WORD r 
8 7 BYTE 3 
7 BYTE 3 
584 724 .WORD 412 ; 
000 007 g WORD : 
6008 00 7 LONG : 
st 00 72C LONG : 
8 BR Obs 7 LONG 3 
0000000' 007 ADDRESS RECBUF +4 3 
07 : BYTE 2 ; 
7 BYTE ; 
73A BYTE ; 
738 BYTE : 
080008 73C LONG : 
000000' 00740 ADDRESS UAFFAB 3 
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YSMAXDETACH= 
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non nn 
qa 
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FHRAMAOOOOMM 


NEWM = 
FORE IGN_CMDLINDSC= 
-EXTRN CLIS VF, CLIS_NOCLINT 
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UAFMAIN 16-50 Sep-1984 4 VAX-11 Bliss-32 V4.0-74 Pa 7 
V0s2000 start - controlling code ~300n 138% 6: 39 33 DLEKSVMGHASTER-CUAR SRC SUAFMAIN.B3251 ae iy 
.EXTRN LBRSOUTPUT_HELP | 
~EXTRN atthe FOREIGN 
SEXTRN LIBS$GET- INPUT, LIBSPUT_OUTPUT 
-EXTRN FMGSMATCH_NAME cL socE PARSE 
“EXTRN CLISDISPATCH, CLISPRESERT 
sEXTRN CLISGET_VAL LUE a ppDAte. RECORD 
-EXTRN PARSE_WILD 
XTRN AF SADD Bent’ RECBUF | 
RN UAFS$BUICD_HOLBER 
TRN UAFSFIND_OIC, UAFSREMOVE_IDENT_RECBUF 


EX 
SEXTRN UAFSWRITE_ RIGHTS 
~EXTRN EXESGL S¥SU UIC, ROB HEADER. FLAG 
«EXTRN LIST_FLAG. A 
~EXTRN HOLDER. IDENT, AUTHORIZE _ COMMANDS 
-EXTRN PRVSAB_NAMES, LIBSSIGN 
sEXTRN UAF APS ADDERR, UAFS_ ADONSE 
~EXTRN UAFS. ~BADNODFOR 
~EXTRN UAFS$~ =BADSPC UAF $_BADUSR 

=CLIWA RNMSG 


-EXTRN UAE $-CRDTOOLONG 
-EXTRN UAFS-CONERR, UAF$_COPMSG 
“EXTRN UAFSTCREERR, UAF$_DEFERR 
“DEFPWD, UAF$~DONEMSG 
“GETERR. UAFS$_~HELPERR 
VCMD UAE S_INVRSP 


U OB] 
~EXTRN NAS -NETLSTMSG, UNS NAOF IL 


U NAF , 
-EXTRN UAFS_ NODEF PWD, UAFS pre recsre 
-EXTRN UAFS$_ ~oUSERR UAF $_NOTUNQ 
-EXTRN UAFSIN E 
-EXTRN UAF$_ ~PRERASG, UAF$_PUTERR 
-EXTRN UAF$_RDBDONEMSG 


XT YMSG 
XTRN UAF$"RDBNOMODS, UAF$_REMDEF 
T UAF$_REMMSG 


UNF 
XTRN UA S- Z1SQUAL UAFS EZPRACREN 
XTRN SYSSOPEN, SYSSC 

XTRN SySScRE ATE 


SCODES ,NOWRT ,2 


UA’ 
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OFFC START: .WORD Save R2,R3,R4,R5,R6,R7,RB,R9,R10.R11 : 090 
B 0006 0 3 a MOVAB AUTHORIZE COMMANDS, R11 : . 
A G : MOVAB SYSSCONNECT 10 : 
9 G BF 19 MOVL weld NOCLINT, R9 : 
8 G — 0001 MOVAB LIBSSTOP, RB : 
E 43 MOVAB CMDLINDSC, R7 : 
6 0000' F MOVAB STATUS, R6 : 
14 «OA c CLRB = RIGHTSLIST_MODIFIED + 0947 
EFCS C6 7C 90 F CLRQ MODIFY_FLAG + 0949 
F9B8 «= C6 OOF 3 PUSHAB INFAB + 0955 
000000006 00 1 Ff CALLS #1, SYSSOPEN ; 
6 0 D E MOVL RO. STATUS : 
10 AZ 0 DO 00041 MOVL RO, RMSERR : 
05 E8 00045 BLBS RO. 1$ : 
66 DD 0 48 PUSHL STATUS + 0957 
68 1 FB OO04A CALLS #1, LIBS$STOP : 
FAQS C6 9F 0004D 18 PUSHAB INRAB + 0959 
6A 1 FB 0051 CALLS #1, SYSSCONNECT : 
66 0 pO 00054 MOVL RO. STATUS ; 
10 AZ 0 D0 0057 MOVL RO. RMSERR : 
05 50 £8 00058 BLBS RO, 2$ : 
66 DD 0005 PUSHL STATUS > 0961 
68 01 FB 0006 CALLS #1, LIBSSTOP ; 
FAGC C6 9F 00063 2$ PUSHAB + 0963 
000000006 00 01 FB 00067 CALLS #1, SYSSCREATE ; 
0694 C7 9F 0006 PUSHAB > 0964 
6A 01 FB 0007 CALLS #1, SYSSCONNECT : 
00000000v 00 00 FB 0007 CALLS #0. SETUP > 096 
fe Be Beare RIB tes 
00000000' 00 9F $0088 PUSHAB FOREIGN _CMDLINDSC : 
000000006 90 03 FB 00086 CALLS #3, LIBSGET_FOREIGN ; 
67 3 90090 TSTL § CMOLINDSC : 
¢ 1% 90092 BEQL 6 4$ : 
04 A? F018 §=C6 «SE 00094 MOVAB CMDBUF, CMDLINDSC+4 : 0979 
0880 8F BB OOO9A PUSHR #*M<R7,R11> ; 0981 
000000006 00 02 FB 009 CALLS #2, CLISDCL_PARSE ; 
68 25 9 OO0A BBE ORO, Se ; 
000000006 00 09 FB 000 CALLS #0, CLISDISPATCH + 0984 
43 11 0008 BRB 7$ > 0985 
59 6 D4 OB, 3$: CMPL = STATUS, R9 : 0991 
87 BEQL «6s 6S ; 
99090000v 90 0 FB 000B9 CALLS 40, ACCSEXIT > 0995 
00000v 0 FB 90¢0 4$: CALLS #0. GET_CMD_LINE : 1008 
F6 E ¢ BLBC —_-«RO. 4§ : 
0880 8F 6B OOOCA PUSHR #*M<R7,R11> + 1010 
000000006 00 F ¢ CALLS #2, CLISDCL_PARSE ; 
66 D D MOVL RO. STATUS : 
10 5 D BLBC —_-«RO. : 
08 00 6E as 09 C p MOVCS #0. (SP), #0, #8, UAFSGL_CTLMSK > 1013 
000000006 00 0 Fe CALLS #0, CLISDISPATCH > 1014 
D5 7 BRB : 1 19 
59 66 01 OOOEB 5$: CMPL ‘STATUS, R9 : 101 
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1 E BNEQ 4$ 3 
9 OS FO 6$: PUSHL R9 ; 1019 
68 1 fo F CALLS #1, LIBSSTOP ; 
f° 1 F BRB 3 1919 
©0 1 oO F7 7$: MOVL #1, RO : 10 
4 QOOFA RET 3: 1024 


; Routine Size: 251 bytes, Routine Base: $CODE$ + 0000 
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previous SYSUAF.DAT exists. 


pcopres. It determines whether or not a 
f not, it creates one (if the user wishes to proceed). 
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| 
| 
; 990 1 ; item_list ; -0.16,0) = 8; ; 
; 991 1 item_list 9.16.0) = jpi$_procpriv; : 
3 836 1084 item_list [40,0,32,0] = Breer evi : 
; Wy 1085 item_list [44,0,32,0] = 0; : 
: 994 1 § item_list (48,0 16,0] = 4; : 
: WW 1 tem_list -. 16,0) = jpi$_sts; ; 
3 238 1088 item_Llist -¥.3¢.0J = pcb_sts; ; 
P4 99 1938 item_list oVe ° = 5: : 
; 998 1090 item_list (60,0,32,0) = 0; | : 
; .999 1091 | ; 
; 1909 1038 S$getjpi (itmlst = item_list); ! Obtain pid, username and privs : 
; 1806 1994 username_dsc(0] = namelen (uaf$s_username, username_buf); | ; 
: 1004 1209 PEP SESS S SSCS STSCI SSCS STITT eT TTT TTT TTT ITI IIIT IITA LILIA LITT iiitiiit 
: 1005 109 ‘ 
: 1008 1098 ! Open SYSUAF .DAT 
; 100 1099 ! 
3 1068 1100 LR RRR AA ARATE REE RAAAA RTE 
; 1009 1101 
; 1010 1136 newfile = false; ! note no new file yet 
3; 1011 110 
: ole 1104 if rmsbad (Sopen (fab = uaffab)) 
; 101 1105 then 
3: 1014 1106 ! 
3; 1015 1107 ! sysuaf.dat doesn't exist 
: 1016 1108 ! 
: 1017 1109 begin 
; 1018 1110 LIBSSIGNAL(UAFS_NAOFIL, 0, .rmserr); 
3: 1019 1111 ermserr eql rms$_fnf 
3 1020 1ii¢ then 
: 1021 1113 4 begin 
; 1S6 1114 4 while true 
3; 10 1115 4 do 
3: 1024 1116 4! 
; 1025 1117 4 ! Ask if a new one is desired 
3; 1026 1118 4! 
3: 1027 1119 5 begin 
; 1028 1120 5 as (newnsge® cmdbuf(0], cmdbuflen); 
> 1029 1121 5 if .cmdbuf CO) eql ‘y' 
; 1030 1156 : then oni thone newfile = true; 
: 1031 11 if .cmdbuf (0) eql ‘N’ 
; 1936 1124 5 then acc$exit (); 
; 10 1125 § LIBSSIGNAL (UAF$_INVRSP); 
.% 1126 4 end; | 
; 1035 1127 4 end 
: 10 1128 lse 
; 10 1129 acc$exit (); 
: 1038 1130 end; 
3; 1039 1131 
3; 1040 11 § 
; 1041 11 : } 
3 1008 1134 ! The file will be created if it does not already exist. 
3; 104 1135 ! In any case connect the RAB. 
: pss 11 $ ! 
> 1045 11 | 
3: 1046 1138 if .newfile 
| 
| 
j 


<c 
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—o a a 
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then 
A new file is requested 
"4 rmsbad (Screate (fab = uaffab)) 
then 
Quit regardless of error on a $CREATE: don't 
want to give read-only user ability to create a file 
LIBSSIGNAL(UAFS$_CREERR, 0, .rmserr); 
if rmsbad ($connect (rab = uafrab)) 


then LIBSSIGNAL(UAFS_CONERR, 0, .rmserr); 
vafrabLrab$b_rac] = rab$c_key; ' normal access is by key 


' 
' Check to see if there was no old file to use. If so write a default and 


a system manager record. 


if .newfile 
then 
begin 
modify_flag = true; ' must rename when done 


build Tni_recs () 


; ! build default and system manager records 
uafrabCrab$w_rszJ = uaf$c_fixed; ; . 


if rmsbad (S$put (rab = uafrab) 

then LIBSSIGNAL(UAFS_PUTERR, 0, .rmserr); ! report error 

uafrabCrab$l_rbfJ = recbuf; ' establish proper address (and 
' address of system record) 

if rmsbad tout (rab = uafrab)) ! output system record 

— LIBSSIGNAL(UAF$_PUTERR, 0, .rmserr); 

en 


else 
: Read in the default record. 


begin 

uafrabCrab$t_ubf) = default_record; 

if not locate_user (.defuser<0,8>, defuser+1, false) 
then LIBSSIGNAL(UAFS_DEFERR, 0, .rmserr); 
default_size = .uafrab rab$w_rsz] 


end; 
ustraptreps! upt = recbuf; ! establish proper addresses 
uafrablrab$l_rbfj = recbuf; 


eee eee EAA AAA AAA AAA AAA AAA AAA EAA 
i] 


i Open NETUAF.DAT 


' 
Seeee eee AAA AAA ARERR AEE 
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netuaf_exists = true; Assume NETUAF.DAT exists... 


' 
Try to open NETUAF.DAT and see what happens... 


if rmsbad (Sopen (fab = naffab)) 
then 


i Couldn't open it 
"  4f srmserr eql rms$_fnt 
then 
netuaf_exists = false ! it doesn't exist 
LIBSSIGNAL(UAFS_NAONAF, 0, .rmserr) ! open error for some other reason 
else 
NETUAF .DAT opened without error 


if rmsbad ($connect (rab = nafrab)) 
then LIBSSIGNAL (UAF$_NAF CONERR) ! connect error 


1 
Everything opened and connected, establish proper NETUAF addresses 
"else 


begin 
nafrab Crab$l_ubf] = netbuf; 
nafrab Crab$l_rbf] = netbuf; 


end; 


t 
! Check to see if the rights data base exists. Try to translate an ID 
and if we get a file not found error then it doesn't exist. 


ident(uic$v_format) = uic$k_uic_format ; 
identluic$v_group) = 1 ; 
identluic$v_member] = 4 ; 


status = $idtoasc ( id = .ident ) ; 
f .status eql rms$_fnf 
then rdb_exists = false 
else rdb_exists = true ; 


1 end; 


.EXTRN SYSS$GETJPI, SYSSPUT 
“EXTRN SYSSIDTOASC 
OFFC 00000 SETUP: .WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
5B 000000006 00 9€ 0000 OVAB SYS$PUT. Ril 
A G E 6 9 MOVAB SYSS$CONNECT, R10 
9 V E MOVAB ACCSEXIT, R9 
: G E 0001 MOVAB SYSSOPEN, Rg 
9E 3 MOVAB NEWMSG2O. R 
6 G 9E 0002 MOVAB IDENT, R6 


SS 
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UAFMAIN 16-Sep-1984 02:16:54  VAX=11 Bliss-32 v4.0-7 45 
v04-000 setup - open initial files 12-88-1382 9¢:36:38 DISKSVMSMASTER: CUA. she UAFMAIN.B32; a9 * (a) 

63 5 D9 118 MOVL RO, RUSERR ; 

D EB 001 BLBS : 
ta oe 

000000006 Bf DD 001 PUSHL aUAFS CREERR : 

65 : FB 00108 ALLS #3, LIBSSIGNAL ; 
O5FO 9F OO12E 6$ PUSHAB UAFRAB + 1151 

6A 1 FB 001 ALLS #1, SYSSCONNECT : 

63 DO 001 OVL RO, RMSERR : 

0D E8 00138 LBS RO, 7$ : 
63 DD 00138 PUSHL RMSERR + 1152 

7E 04 4 D CLRL. <(SP : 

000000006 i DD 0013F PUSHL WUAF CONERR : 

65 3 FB 00145 CALLS #3, LIBSSIGNAL ; 
060E c3 01 90 00148 7$: OVB #1, UAFRAB+30 + 1153 
«wif gf 5S Sets Rane SOAS eda ate 
00000000v 09 8 FB 00134 CALLS #0, BUILD_INI_RECS + 1164 
a a a ca gs 
0618 (3 049C C4 9E $0165 MOVAB DEFAULT ERECORD. UAFRAB+40 > 1168 
O5SFO ¢3 9F 00170 PUSHAB UAFRAB + 1169 

6B gi FB 00174 ALLS #1, SYS$PUT : 

63 0 pO 00177 MOVL RO, RMSERR : 

0D 50 €8 OO17A BLBS RO, 8$ ; 
63 DD 0017D PUSHL RMSERR + 1170 

7E 04 0017F CLRL ) : 

000000006 af DD 00181 PUSHL MAES PUTERR : 

65 FB 00187 CALLS LYIBSSIGNAL 3 
0618 (C3 08 AS 9E 0018A 8S: VAB RECB UF, DAPRAB+4O : 1171 
O5SFO C3 9F 00190 PUSHAB UA : 1173 

68 gi FB 00194 CALLS H. SYS$PUT ; 

63 0 D0 0197 MOVL RO, RMSERR : 

3F 50 £8 0019A BLBS RO, 11 ; 
63 DD 0019D PUSHL RMSERR + 1174 

7E D4 0019F CLRL. = (SP) ; 

000000006 8F DD 001A1 PUSHL WUAFS PUTERR F 
65 03 FB aD CALLS #3, LIBSSIGNAL oe 
0614 (C3 049¢ ch 9E OO1AC 9S MOVAB DEFAULT RECORD. UAF RAB+36 + 1181 
: D4 0018 CLRL = = (SP) : 1182 

FEFB oC? 9F 001B PUSHAB DEF USER+1 ; 

7E FEFA C7? 9A 00189 MOVZBL DEFUSER -(SP) F 

00000000v 00 FB O1BE CALLS LOCATE, USER : 

E8 OOIC BLBS ; 
8 DD 001¢8 PUSHL at + 1183 

E D4 OO1CA CLRL ) : 

gs 000000006 FE reais Ek RUM RELE 7 
0498 C4 061 C 60 105 10$: MOVW UAFRAB® 3 “ DREAULT. SIZE > 1184 
rs a CO ee at 
FBO 01 06 1E MOVL a NEfUAF EXISTS > 1196 
1030 C4 9F OOTEC PUSHAB NAFF > 1201 

68 1 F 169 CALLS #1, SYSSOPEN ; 

$ 6 DO OO1F MOVL RO, RMSERR : 

0 EB 001F6 BLBS RO. 13$ : 


N 13 
UAFMAIN 16-Sep-1984 16:54 VAX-11 Bliss-32 V Page 46 
v04-000 setup - open initial files 12=800= 1382 9% 39:33 DISKSVMSMASTER: CUA AE SRCSUAFMAIN. B32;1 ° (4) 
0 DO 001F9 MOVL § RMSERR : 1206 
00018292 ap § p0 1F CMPL RO, 49 RSboe : 
if 0 BNEG 12$ : 
FB ASOD CLRL NE TUAF EXISTS + 1208 
11 8 BRB 15$ ; 
0 oD A 12$ PUSHL RO + 1210 
E 04 C CLRL. = (SP) : 
000000006 BF DD 0020E PUSHL HVAFS NAONAF : 
65 3 FB 0 14 CALLS #3, LIBS$SIGNAL : 
$ 11 17 RB 15$ + 1206 
0634 C3 9F 00219 13$: | PUSHAB NAFRAB + 1216 
6A gi FB 1 CALLS #1, SYSSCONNECT : 
63 0 D OVL RO. RMSERR : 
0B 50 E8 00 LBS ~=—s-_- RO, -:14$ : 
000000006 8F DD 00226 PUSHL § #UAF$_NAFCONERR + 1217 
65 01 FB 0022c CALLS #1, LIBSSIGNAL : 
OE 11 O02eF BRB 15$ : 
0658 C3 058¢ C3 9E 00231 148: OVAB NETBUF, NAFRAB+36 : 1223 
065c oC 58C 6 C3—s«9E «(00238 MOVAB NETBUF, NAFRAB+40 31 34 
03 Ab CO | «O8F OBA 00 3F 15$: BICB2 #192, IDEN + 1231 
02 Ab OE 00 01 FO 00244 INSV #1, #0 ree IDENT+2 : 1232 
66 04 80 0024A MOVW #4. IDENT + 123 
7E 7C 00240 CLRQ—_ = ( §P) > 1234 
7E 7C QO24F CLRQ = =(SP) : 
7E D4 00251 CLRL = (SP) ; 
66 DD 00255 PUSHL IDENT ; 
00000006 00 06 FB 00255 CALLS #6, SYSS$IDTOASC : 
0018292 8F 50 D1 0025¢ CMPL STATUS, #98962 + 1235 
04 12 0026 BNEQ 16$ : 
FC A304 00265 CLRL § RDB_EXISTS + 1236 
' 04 00268 RET : 
FC AB 01 DO 00269 16$:  MOVL #1, RDB_EXISTS : 1237 
04 0026D RET : 1239 


; Routine Size: 622 bytes, Routine Base: S$CODE$S + OOFB 
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3 
3 


2 V4.0=76 Page 48 
a UAE SRCSUAFMAIN.B32:1°%" (24 


<c 


> 
a le ll el el el el el el el el el er el el ee el el ee ered el ere cee el el eel eel eel el eel el el el eel el el cell cel eel cel cel el el ll lt ll cel <= 


i Make sure a legal username was entered, otherwise the account may not be 
accessible via LOGIN or the Input Symbiont. 


& 


incru i to .tokenlen - 1 


if ch$fail (ch$find_ch (.symbol_str<0 
symbol_str + { 
ppenenete C.i]5) 
then return LIB$S]GNAL (UAF$_INVUSERNAME) ; 
user_dsc 9) = ,tokenlen; 
user_dscl1J = recbufCuat$t_username); 


8>, 


i 
' fields which are not entered will receive the default 
: value. Then insert the username just entered. 


PME WN $$ OOONAUNE WN 0 OONOUS WN OCONOUES Wh 


ch$move (.default_size, default_record, recbuf); 
ch$copy (.tokenlen, .tokenptr, * ', uaf$s_username, recbufCuaf$t_username)) ; 


; i Call routine to fill in all supplied values. Exit if any errors 


were found. 


pwd_flag = true; ! plan to supply a password 
uafrabCrab$w_rsz] = .default_size; 
uaf$gl_ctlmskCuaf$v_add] = true; 
- not update_record ( 
en 


AWA AWN AIR PONPUPIPINONONPUPDY 2 SS SS SS SS SOOO 


OO NO NEWRY OOO VNOA UNE WN" O ODNA UE WN OVD ODNAUS WN (OOD ONOULS WN -"OVO~ 


ere 
uaft$gl_ctlmskCuaf$v_add]) = false; 


: 
Move the default record to the current record butter so that 
return: 


31 
1 
1 

31 

32 
2 

3s 

35 

s 

3 

: 

3 

33 

33 

33 

$ 

33 


| 


3 


34 


at et ek et et teh oh od eh a 


if .pwd_flag ! if no explicit password 
then 


begin 
pw gee} coceu. Congehd = .defpass<0,8>; 

guses dsc$a_pointer] = defpass+1; 

gettim (timadr = _time_buf); 

recbufCuaf$w_salt) =_.time_buf<3*8,16>; 
recbufCuaf$b_encrypt] = encrypt; 

lgi$hpwd (rec_encrypt_dsc, pwddsc, .recbufCuaf$b_encrypt], 

-recbufCuafSw_saltJ, user_dsc); 


rer 


3 
3 
3 
4 
4 
4 
4 
4 


= 


end; 


1 
Now output the new record. 
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end; 
uaf$gl_ctlmskCuaf$v_add] = false; 


Wn 


if rmsbad ($put (rab = uafrab)) 
then 
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if .rmserr eql rms 
then return LIB$S fenty ears UAEERR) 
ed CIBSSIGNAL CUAFS ADDERR, 0, .rmserr) 


o be gin 


' 
Tell user that addition was successful. Note that file was changed. 


matey aed ADDMSG) ; 


WA.AIWANIANIAI AANA ANAM AANA A AAW 


SN NNN NAA AAA AAA OO 


| 

| 

| 

pt tlm 

then 1BSSIGNA (OARS. cL] NMSG); 


3: 1 1354 yl 
3 1 ! 5 ; 
3 ; : : ; 
3 1 1 § 3 1 
3; 1 1360 5 | 
7 1361 $1 
3; 7 1 § 3; 1 
3 1 1 an 
3 1 1364 4 uaf$gl_ gyliek uaf$y_cli] 3 | 
3 : fe : ? 4 and (not .uaf$gl sk tiatsy clitables])) 3 
: 26 { ; secur audit insask eye _sysuaf_add); ; 
: 1278 1369 4 modify. {tag = true ($d _add_identifier ) and 3 
3 1279 1370 4 -rdb_exists ) s 1 
3; 1280 1371 3 then 3 1 
; 1281 1 ; 4 "begin 3 | 
3: 1282 1 4 3 1 
3 1283 1374 4 i Add the appropriate identifier 3 1 
> 1284 1375 4 ' Set the resource attribute if  VATTRIB= RESOURCE wee specified $1 
3 1$82 : $ : and then add the appropriate identifiers to the rights data base : 
: 1287 1378 4 if cli$present (sd_attribresource) g 1 
; 1288 1379 4 then attributes = kgb$m_ resource 31 
3: 1289 1380 4 else attributes = 0 ; 3 1 
3; 1290 1381 4 uaf$add_ident_recbuf () ; ¢ 1 
3: 1291 1386 3 end ; 3 1 
; 1536 1383 2 end; 3 1 
3; 129 1384 1 end; 3 1 
-EXTRN SYSSGETTIM 
OFFC 00000 ~ ENTRY ADD _UAF . Save R2,R3,R4,R5,R6,R7,RB,R9O,R10,—- = 1241 
5B 00000000G 00 9€ 00002 MOVAB LIBSSIGNAL, R11 3 
5A 00000000' 00 9€ 90009 MOVAB Bu R16 : 
59 00000000' 00 9€ 0019 MOVAB SD_TOKEN1, : 
58 00000000" 00 4 3 0001 MOV i a Ay 3 
5E 08 C2 QOO1E UBL $ 
9 DD $8 1 PUSHL : 1285 
000000006 00 1 FB 3 CALLS a. CLISPRESENT F 
12 0 € OO2A BLBC RO. 1$ : 
8 DD 00020 PUSHL : 1286 
59 0D F PUSHL ph ; 
000000006 00 9 FB 1 CALLS ‘ CLISGET_ VALUE j 
04 E 8 BLBC 3 
6 83 09 oe FORENLEN ; 1287 
000000006 iF 0 0 it 1$: cust #UAF $_NOUSERNAME : 1288 
0c Ss e O04? 23: CMP TGOKENLEN, #12 : 1294 
B 4A BLEQU ; 
00000000G 8F DD 0004C PUSHL #UAF $_NAMETOOBIG ; 1295 


5 


14 
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27 {! 52 BRB 6$ : 
53 g 24 3$ MOVZWL TOKENLEN, R3 + 1301 
D 7 DECL R : 
D4 099 CLRL i : 
11 00058 BRB g : 
51 O1ec }§=6—C9-—« 9A 00050 48 MOVZBL SYMBOL_STR, R1 : 1303 
0 04 Ag p0 06 MOVL TOKENETR, RO + 1305 
O1ED C9 51 6240 3A 0006 LOCC 1) RO}, R1, SYMBOL_STR+1 : 
9¢ 12 00060 BNEQ =§ : 
1 D4 O06f CLRL RY : 
51 D5 00071 5$ TSTL = RY. : 
09 12 0073 BNEQ 7$ : 
000000006 8F pd 7 PUSHL  #UAF$_INVUSERNAME : 1306 
(ORE be Ooore Ss; GRC‘ 1305 
53 38 D1 o0086 8$: CMPL I, R3 : 
08 1B 9008 BLEQU 4$ : 
57 68 3¢ 00085 MOVZWL TOKENLEN, R7 + 1307 
6E 57 DO 00088 MOVL R7, USER_DSC : 
04 AE 24 A8 9E 00088 MOVAB RECBUF+4> USER_DSC+4 + 1308 
56 FA?8 CA 3¢ 00090 MOVZWL DEFAULT SIZE, : 1316 
20 As FA7C CA 56 28 00095 MOVC3 R6, DEFAULT RECORD, RECBUF ; 
50 04 A8 DO 0009C MOVL. _ TOKENPTR, R0 + 1317 
20 20 60 os Hi 2c B00A0 MOVCS R7, (RO). #32, #32, RECBUF +4 : 
0698 C8 01 DO 000A7 MOVL #1, PWD FLAG ; 1324 
062A (68 56 BO OOOAC MOVW  R6, UAFRAB+34 : 1325 
AG AB 02 88 00081 BISB2 #2, UAFSGL_CTLMSK : 1326 
000000006 00 00 FB 000B5 CALLS #0, UPDATE-RECORD : 1327 
05 50 €8 000BC BLES ~—s_- RO, ; 
AG AB 02 8A 000BF BICB2 #2, UAFSGL_CTLMSK : 1330 
04 000C3 RET : 1 29 
AG OA 02 8A 000C4 98 BICB2 #2, UAFSGL_CTLMSK 71 
3B 0698 CB E9 000C8 BLBC PW FLAG, : 1336 
6A 0120 ¢9 9B 000CD MOVZBW DEFPASS, PWDDSC : 1339 
04 AA 0121 ¢9 9E 000D2 MOVAB DEFPASS+1, PWDDSC+4 : 1340 
0690 C8 9F 000D8 PUSHAB TIME BUF : 1341 
000000006 00 01 FB d00¢ CALLS #1, SYSSGETTIM : 
0186 8 0693 C8 BO O00E MOVW TIRE BUF +3, RE CBUF +358 : 1 3 
0188 (CB ge 90 OOOEA MOVB #2, RECBUF+36 : 1 
j D OOOEF PUSHL SP 3 1344 
7E 0186 CB 3C OO0F1 MOVZWL RECBUF+358, -(SP) > 1345 
7E 0188 c8 A 000F6 MOVZBL RE BUF +360, -(SP) : 1344 
A pp OFB PUSHL R : 
0164 (C9 OF FD PUSHAB REC_ENCRYPT DSC ; 
000000006 00 05 FB 00101 CALLS #5, LGISHPWD : 
0608 CB 9F 00108 10$:  PUSHAB UAFRAB : 1352 
000000006 00 .e. 1 CALLS #1, SYSSPUT : 
18 as dO 0011 MOVL RO. RMSERR : 
2 E8 0011 BLBS ; 
0 18 A&B DO OO11A MOVL  RMSERR RO > 1354 
000184EC BF 30 D} is cAPL RO, #9956 ; 
000000006 rf DD 001 PUS BUAFS UAEERR : 1355 
6B 1 FB 001 p 11$ CALLS #1, LYBSSIGNAL ; 
04 001 RET ; 
50 DO 00131 12$:  PUSHL RO > 1356 
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419 bytes, 


1 

1 

7E 04 001 H 

000000006 gf DD 001 

. sea 
000000006 8F 43 iF 138: 

AG OA 3 Ef 168 

AG 4 €E0 0014 

000000006 : 43 3 
00010002 F DD 00158 148: 

ommree” f | i sie 

44 Ad OF 3198 

emerson Eh, 

4 14 AB 44 Bat oe 

FSD8 CA 9F 0017 

comer EI) 

000000006 00 4 oY B158 
000000006 00 D4 00195 15$: 
000000006 00 00 FB 00198 16$: 
04 OO01A2 178: 


Routine Base: 


SCODES + 0369 


PUAF SAD 
7. LTe$ 


AFS_AD 
ryrbtg 
#3, UAF 


#1. ATTRIBUTES 


ATTRIBUTES 
#0, UAFSADD_IDENT_RECBUF 
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Wroe 
— 
= 
= 


Be oe oe ot ot ok ok at ok at tek ek et ek ae Oe ee Oe tal te al ak tek teh eh ee ee ek ek ee eh ee 


! 
cli$get_value (sd_tokenl, tokendsc); 


i 3 
5 : ‘ 
§ Make sure entry is in proper node::remoteuser format : 
2% if not remote parse (node_ptr, node_len, remuser_ptr, remuser_len) 3 
28 then return; : 
61 i Fill in NETBUF with new remotename field ; 
o? ch$copy (.node_len, .node_ptr, ' ', naf$s_node, netbuf(naf$t_ node]); : 
5 : 
66 : ‘ 
44 : Now get second token, the local user name ‘ 


cli$get_value (sd_token2, tokendsc); 


locuser_len = -tokenlen; 

Locuser_ -ptr = ,tokenptr 

'eeeif .locuser_ - "oteu naf$s_localuser 
if . locuser_ len” 

then return LIBS TGNAL CUAFS _NAMETOOBIG); 


' 
If local name is *, then use same name as remote user 


if .tokenlen eql 1 and . (.tokenptr)<0,8> eql ‘*' 
then 


oe oN INI NNN SNS 
MEWN—OOONOULSWN—O”O 
C9 OD 09 SINISE AAA AAA AA MMII III & 


SLESARATLSSSVEALAV LS SSVSARANASSSISALERV IS SSVTALUNALS Sauer 


WALA A A AAA AAA WIAA WA WAN 


ch$copy (.remuser _len, -remuser_ptr, ' ', naf$s_remuser, netbuf naf$t_ remuser]); 
| 
| 
| 
| 


ee ee ee ee ee ee ee Lee 
ee ee ee ee ee ee ie ee ee ee 


Be Se Se Se Be Be Oe Se Se Oe Se Se Be Ge FHS Ge Ge Fe Se Ge Fe Se Ge Se Se Se Ge Se Ge FH Se Se Se Se Ge Ge Se Se Se Se Se Se ee Se SHS SH Se ee See Se Sees Seas 


begin 

loruser. len = .remuser_len 

chtaove” (naf$s_remuser, netbufCnafSt. remuser], netbuf(naf$t_localuser]); 
en 

86 ! 

4 } Otherwise just copy into localuser field in NETBUF 

89 else 

90 ch$copy (.locuser_len, .locuser ate 

y naf$s_localuser, netbuf nafst_ See Mp 

9 ! 

94 ' Make sure that the local user does indeed exist in SYSUAF.DAT 

95 (unless local user is *) 

39 if not locate user (.locuser_len, netbuf(Cnaf$t_localuser], 0) 

98 8 and not (.locuser_len eql 1 and. (netbufCnaf$t_ localuser4)<0, 8> eql ‘*') 
ipp 9 then return LIBSSTGNAL ( F$_BADUSR, 2, .locuser_len, netbufCnaf$t_ localuser])); 
red nafrabCrab$w_rsz) = naf$c_length; 

208 

rte Add NETUAF.DAT record 

406 if rmsbad (Sput (rab = nafrab)) 
40 then 

408 begin 
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v04 $6000 add_proxy - insert new proxy record 12-8681 382 9¢:39:35 DISK KSVMGMA TER: UAE” ORC SUAFRAIN. B32; 929 * 
; 1409 1499 if .rmserr eql rms$_du ; 
; 1410 1 9 then . itd 3 
3 Veh) } return LIBSSIGNAL (UAFS$_NAFUAEERR) $ 
3 else 3 
3 1218 1 § LIBSSIGNAL(UAFS_NAFADDERR, 0, .rmserr) : 
3 14146 1 end $ 
3 1615 1505 olee, ; 
3 1918 1 $ begin 3 
3 141 1 Ll wos beg ahe «ry NAF ADDMSG); : 
: 1418 i 8 security_audit Tnsa$k_recid _netuaf_add); 3 
3; 1419 1509 end; $ 
3; 1420 1319 ; 
: 1421 151 netuaf_modified = true; : 
: 1422 1512 end; 3 
O7FC 00000 -ENTRY ADD_PROXY, * arg’ R3,R4,R5,R6,R7,RB,RIO,R10 = 1386 3 
5A 00000000G 00 9€E 00002 MOVAB CLISGET VALU : 3 
59 900000006 00 9E 00009 MOVAB LIBSSIGRAL, RO : ; 
58 00000000‘ 9 B019 MOV NETBUF +64, RB : 3 
+3 10 C2 0001 SUBL a : 3 
0 FA2C C E aes BLBS NE TUAF the 1$ ; 1634 $ 
000000006 ef DD 3? 1F PUSHL $_RAFDN 3 143 3 
F 11 00025 BRB ay" : 3 
0064 + 8F 20 6E - ? 2c one 7 18: MOVCS #0, (SP), #32, #100, NETBUF 3: 1438 : 
FAIC 3 oF $09 5 PUSHAB TOKENDSC 3 1443 3 
00000000' 9F 000 PUSHAB $8 .TOKEN! : 3 
6A 2 FB OOO3A CALLS #27 CLISGET_VALUE ; ; 
E Dd 00030 PUSHL P : 1448 3 
08 AE 9F O003F PUSHAB REMUSER_PTR 3 é 
10 AE 9F 94 PUSHAB NODE_ ra, : 3 
18 AE 9F 0004 PUSHAB NODE PTR 3 3 
00000000v 00 4 4; 0048 CALLS #4, REMOTE _PARSE : é 
01 0 b¢ OSs - RO, 2$ 3 : 
20 20 Oc BE 08 “ C 0038 2$ MOVCS NODE_LEN, @NODE_PTR, #32, #32, NETBUF : 1453 : 
20 20 04 =«BE 0 $ 2c Bee MOVCS ot EN, @REMUSER_PTR, #32, #32, 3: 1454 : 
eal oF SHAB TOKENDSC ; 1459 3 
00000000' oF PUSHAB 3b. KEN2 3 3 
A i) of CALLS #2, CLIS$SG ALUE 5 3 
§ FAI 2 MOVZWL TOKENLEN, LOCUSER_LEN 3 1461 3 
FA2 0 76 MOVL TOKENPTR, LOCUSER_PTR 3: 1462 : 
0c A M5 yt LOCUSER _CEN, cal 3: 1464 3 
00000000G_ 8F 90 PUSHL Baga 3; 1465 3 
7 3$: BRB 9 2 3 
01 FAIC CB 2 4$: CMPW TOKENLEN, #1 3; 1470 3 
14 BNEQ 3 3 
30 FA20 ce F MOVL TOKENPTR, RO 3 : 
A 6 CMPB = s« (RO), #42 ; : 
A 12 7 BNEQ 5$ ; 3 


14 
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UAFMAIN 
v04-0 add_proxy = insert new proxy record 


1 
1 

5 MOVL. REMUSER_LEN, LOCUSER_LEN ; 
68 £0 28 : i $e OVC He, NETBUF S39. NE TBOF +64 ; 
20 20 67 é C OOOA3 5$: MOVCS LOCUSER LEN, (LOCUSER_PTR), #32, #32, - : 
ps Othee 68: cum stash ; 
0140 8F 8B 000AB PUSHR  #*M<R6,R8> : 
00000000v 00 ; Fe AF CALLS ‘ , LOCATE_USER : 
01 6 D1 0088 CHL OCUSER_LEN, #1 : 
2A 68 of O08 CMPB =~ NETBUF 464, #42 ; 
1 C BEQL : 
0140 F BB 0c 7$: PUSH #AM<R6,RB> : 
000000006 8F DD 90c9 PUSHL  #UAF$_BADUSR : 
9 4 FB BOCr CALLS #4, LIBSSIGNAL 3 
008A C8 64 BF 9B 0008 8$: MOVZBW #100, NAFRAB+34 : 
68 AB 9F 00009 PUSHAB NAFRAB ; 
000000006 00 1 FB 9006 CALLS #1, SYSSPUT : 
FA34 CB 0 D OE MOVL RO. RMSERR : 
0 FA34 4 ee bore abe RAeERKe RO : 
000184EC BF 50 Dt 000 cMPL RO #99564 : 
000000006 $f DD ites PUSHL  #UAF$_NAFUAEERR ; 
69 01 re OOre 9$: CALLS #1, LIBSSIGNAL : 
50 DD 00108 10$:  PUSHL RO : 
7E D4 00105 CLRL. = (SP) : 
000000006 BF DD 00107 PUSHL BVAFS NAF ADDERR : 
69 03 FB 0010p CALLS #3, LIBSSIGNAL : 
000000006 8F DD 00112 11$:  PUSHL #UAFS_NAFADDMSG : 
®? 0010003 BF bb OO118 push, | gssto 
00000000v 00 01 FB 00121 CALLS #1, SECURITY_AUDIT ; 
00000000' 00 01 BO 001 8 128: HOVE #1, NETUAF_MODIFIED : 


; Routine Size: 304 bytes, Routine Base: S$CODE$ + 050C 
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K 14 
16-Sep-1984 02:16:54 VAX-11 Bliss-32 V4.0-74 P 
remote_parse - parses ‘‘node::remoteuser'' 12=86P 1 382 9¢:39:38 DLEKSVMGMASTERSCUA SRCIUAFMAIN.B32;1° 7" as 


13. 1 &sbttl ‘remote_parse - parses ''node::remoteuser'” 
i 1 Ao ae remote_parse (node_ptr, node_len, remuser_ptr, remuser_len) = 
1 

144 


FUNCTIONAL DESCRIPTION: 

This routine parses a remote user specification in the form 
node::remuser, and returns the two components by lengths 
and pointers to the strings 

INPUTS: 

node ptr - returned as pointer to nodename 

node_len - cs " Length of nodename 

remuser_ptr = returned as pointer to remote user name 

remuser_len - ? -" Length of remote user name 

IMPLICIT INPUTS: 


TOKENLEN and TOKENPTR = the remote user specification is assumed 
to have just been fetched from the command Line 


OUTPUTS: 
none 
ROUTINE VALUE: 


TRUE if parsed successfully. ; 
FALSE if error encountered in parsing 


dbl_colon : vector; 
local 
dbl_colon_ptr; 
! 
Better be able to find a double colon in the remotename... 


dbl_colon_ptr = ch$find_sub (.tokenlen, .tokenptr, 2, .dbl_colon (1])); 


if .dbl_colon_ptr eql 0 ' no double colon found 
or .dbl_colon_ptr eql .tokenptr ' no node foun 

or .dbl_colon per eql dareeenete + .tokenlen = 2) ! no remote user found 
then return LIBSSIGNAL (UAF$_BADNODF ORM) ; 


i] 
: Determine node length and pointer 


DDD DAA D PAs & Se BS BS BB EB ENN NII nnononunononunonons 


-node_len = .dbl_colon_ptr - .tokenptr; 
-node_ptr = .tokenptr; 


ee ee ee ee ee ee ee ee ee ee ee ee ee eee eee 
Py lal sl ah ah al al ah ah sb Ab Ah Ab Ah db db bed db bab hb hb hb hh th th ah ah th ab ah ah shad al ah ak ad ead a ad a) al ea ea ea oa a al eal 


RIPDP PIM NIM IPI APPIPIPIPIPPIPIPINIPYPIPYDIPI PINYIN PIPINPIPYIPIPINIPIPIPINIPIPIPIPIPOPUPINPIPIPUNPIPUNINPIPPY 


SSIS AFR IS SONS ARIS OO NONE WN OOOO SOU RUM O00 MOVUr Cd O00 IRON 


OOon 
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; 148) 


< 
a & 


! 
Make sure node name isn't too long 
iweeif . (, node, — ugh naf$s_node 


7 « Ss node_| yoru 
then return “({BSs GNAL (UAF$_NODTOOBIG); 


i] 
Determine remote username Length and pointer 


-remuser_ptr = .dbl_colon_ptr + 2;~ 

' 

And make sure name isn't too long 
imeeif . (. remuser, Len) ose naf$s_remuser 


if . (.remuser_Llen) watey 
§ then return LIBSSIGNAL (UAF$_NAMETOOBIG); 


2 return true; 
1 1 end; 


4 
9 .remuser_len = .tokenlen = .(.node_len) = 2; 
4 
5 
A 
( 
8 
9 
0 


OOOO OO0O0O00000 000000000002 00 0000 
a kk kk ak a 


Sete Ge Ge Ge Ge Ge Se Se See Gee Se Se eee Se Se estse 
a kk kk a dt 
MO OONAUES WN “OO OONOUL wr 


4 
4 
4 
4 
4 
4 
4 
4 
4 
4 
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4 
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4 
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4 
5 
P) 
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007C 00000 REMOTE _PARSE: 
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Save R2,R3,R4,R5,R6 : 1514 
56 00000000' 00 9€ 00002 OKENLEN, R6 : 
55 66 3C 00009 MOVZWL TOKENLEN, R5 + 1557 
54 04 Ad dO 9900¢ VL _TOKENPTR. R4 : 
50 00000000" 00 20 0010 VL DBL -FOLONeG RO : 
64 55 60 02 39 90017 MAT CHC # R5, (R4) : 
53 02 D OO01E MOVL #2, R3 : 
53 02 C2 00021 1s: SUBL2 #2. R3 : 
OF 1 00 4 BEQL : 1559 
54 3 pi 00026 CMPL  DBL_COLON_PTR, R4 : 1560 
0A 13 00029 BEQL : 
50 FE A544 9E 00028 MOVAB =2(R5)CR4], RO > 1561 
50 53 D1 000 9 CMPL BL_COLON_PTR, RO : 
B 12 000 BNE : 
000000006 F DD o08 3 2$: PUSHL HUAF $_BADNODF ORM > 1562 
5 04 as 09 6 6 D 3$: MOVL. TOKENPTR : 1567 
08 ec 5 3 C 0 41 SUBL3 RO, DBL for on. PTR, @NODE_LEN ; 
04 BC 0 DO 00046 MOVL RO, @NODE PT > 1568 
6 08 ¢ D1 O004A CMPL  @NODE_LEN7 #6 : 1574 
1B af BLEGU : 
000000006 oF DD PUSHL #UAF$_NODTOOBIG ; 1575 
50 66 36 8 4$: MOVZWL TOKENLEN, RO + 1580 
50 08 8B § 8 SUBL2  a@NOD seen RO : 
ee ee Ree) aa 
Be 10 BC oi $083 CMPL § @REMUSER_LEN, #T2 : 1587 


v04-000 


3; Routine Size: 


remote_parse = parses ‘‘node: 


129 bytes, 


M14 

16-Sep-1984 02:16:54 VAX-11 Bliss-32 V4. 8 
:remoteuser’’ 12: 300-1 3b 96:39:38 DISK $vMeh TER: CUAF. OSACSUAFMAIN. B32;1 ee 3B 

—E 18 D BLEQU 6$ 3 
000000006 DD a8 PUSHL #UAF$_NAMETOOBIG ; 1588 

000000006 00 1 4 SiH 5$ CALLS ie LTBSSIGNAL 3 
50 01 DO 9907 6$: MOVL #1, RO ; 1590 
04 00080 RET 3 1591 


Routine Base: $CODE$ + 063C 
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§ 1 Xsbttl copy ,uat - copy user record’ 
ne = 


g 
9 lobal rout co a 
9 Begin ? = 


=~ 


144 
' 
FUNCTIONAL DESCRIPTION: 


ation record, giving the 


Routine to copy a user authoriz 
° fferent name. 


re) 
new authorization record a d 


i 

i 

! r 
: i 
: 

| INPUTS: 

none 

; IMPLICIT INPUTS: 
i 

' 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

‘ 

i 

i 

i 

le 


none 
OUTPUTS: 

none 
ROUTINE VALUE: 


false if the copy fails; 
true if the copy succeeds. 


SIDE EFFECTS: 
A user record is added. 


local 
page 
loc “rec, 
def_Sys, 

old_user_buffer : vector Cuaf$s_username, byte]; 


3 
& 
ne] 


tokenptr : ref vector C,bytel; 
vaf$gl_ctlmskCuaf$v_copy] = not .uaf$gl_ctlmskCuaf$v_rename); 


! If this is a COPY directly from the UAF> prompt, the authorization 

' record need not be locked, and the default and system records may be 

! copied. HOWEVER, if this COPY is part of a RENAME operation, the record 
! must be locked, and the default and system records may not be renamed. 

! (The RENAME operation is similar to the COPY eperation except that 

: the original record is REMOVE'd. COPY leaves 

i 


; not .vaf$gi_ctlmskCuaf$v_rename) 
n 


oth records. 


ee ee ee ee ee ee eS SS SY 


CP IPIPPINIPINIPIPININDIPYNINYIDIPINPININININIPINIPIPININIPINININIPIPIPIPIPIPINPIPIPYPIPIPIPIPUPIPINPINYPINY — 


Be Se Se Se Se Se Be Be Se Se Ge Fe Se Be Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Se Se Se Ge Ge Se Sse Se Se Se Se Se Se Se Sse SeSeSsee te Se Sse SseSsSssseeeg 
ne ee ee me ee ee cee ee cee ce ce a ce ce ee ce ce ce ce ee ee ee ee ce ee cee ee ce ce ee ce ee ee ee ce ee ce ee ee ee ee cD ce ee ee ee ee ee eed eed ed 


POAWAMNAGAN Iv 
OOONOUSWN—O 


e 
begin 


32. 


B15 
UAFMAIN 19~ge0~ 1386 96: }6:38 VA Liss- AB cae P 
14-Se 4 13: I MASTER: CUAF..SRC JUAFMAIN.B32; 1 


v04-000 copy_uaf = copy user record p-19 21:22 D ~— 8 


; 1561 lock_rec = false; ! A COPY operation 
¢ def_sys = true; 
oF At = false; 
en 
65 
begin 
lock_rec = true; ! A RENAME operation 
def_sys = false; 
flag = true; 
end; 


Place record to be copied into RECBUF 

(If the third rh 7 gana is true, the call to GET_USER_RECORD 

is part of a RENAME operation, and the first token should be saved. 
If the third argument is false, the call is part of a COPY 
operation, and the first token need not be saved.) 


if get_user_record (.lock_rec, .def_sys, .flag) 

then : Make sure a username was 
begin ! specified 

if not cli$present (sd_token2) 

or not cli$get_value (sd_token2, tokendsc) 

or .tokenlen eql 0 

then return LIBSSIGNAL (UAF$_NOUSERNAME) ; 


SND AAA AAA AAA MMIII 


' 
Make sure that the new username isn't too long 
ieee if .tokenlen gtru uaf$s_username 

if .tokenlen gtru 

then LIBSSIGNAL (UAF $_NAMETOOBIG); 


OOO 00000000009 0900 0900 0909 09 SINI NII NI INNIS OO 
NAVE WN OS OONAUS WN OO OONOUEWN OO ONO 


Make sure that the new username is legal 


DDD PPV ISVS SV SVU SV SSVI STS USVI 
DARA AAA AA AAA AAA AAO AA AAA AAA AAA AAA AAA AAAS AAA AAA AAO AO 


COOOOO OOO ODDO OODOOOONNNNAN 
CONIA EWN OOD NA UNE WIN 0 OD NAOUESWWN OO OODNOU SWAN OODNOULSWWN Ow” 


ee eee ee ee ee ee Eee Ss 
ee iri ee ee ee eee SS SS | 


Be Se Se Se Se Ge Be Se Se Se Se Be Se Se Se Ge Ge Be Ge Se Se Ge Fe Ge Ge Ge SF Ge Be Ge Se Se Se Se Se Se Ge FF SH Ss Se Se Se Se FFF Se Se Sse ee SHS Se Se Ss Se + 


AANA & EAA WNW AAA AIAN AIN AAI WINN POPOPORoNoNoNoNnoPy 


s incru i to .tokenlen - 1 

00 if ch$fail (ch$find_ch (.symbol_str<0,8>, 

01 symbol _str + 1 

os stokenotr {C.i]) 
at then return LIBSSIGNAL (UAF$_INVUSERNAME) ; 

i 

605 ! | 
one If this is a rename save the new user name | 
608 if .uaf$gl_ctlmskCuaf$v_rename) 
609 then 
610 eegte 
611 699 chdmove (.tokenlen, .tokenptr, newusername); 
ol¢ 700 newuserlen = .tokenlen; 

61 701 end ; 

614 16 
615 7 ! 
elg A : Place the new username in RECBUF, but save the old username first 


15 
UAF MAIN 1b-5e 1984 02:16:54 VAX-11 Bliss-32 V4.0-74 P 
v04-0 copy_uaf = copy user record 1e-8ep-19 4 9:3 :22 DISKSVMSMASTER: CUAF .SRC UAFMAIN.B32: 1-9. 


170 ch$move (uaf$s_username, recbufluaf$t_username], old_user_buffer); 
ch$copy (.tokenlen, .tokenptr, . 
uaf$s_username, recbufCuaf$t_username]); 
pwd_flag = true; 


— 
~ 


ooo 


status = update_record ‘); 
if not .status 
then return false; 

! 

If this is a copy operation then zero fill the Last login info 


if not .uaf$gl_ctlmskCuaf$v_rename] 
then 


begin 

recbufCuat$w_lo fails] = 0; 

ch$fill ( 0, uaf$s_lastlogin_i, rochut}wette.testiogia.ty , 3 
we i ( 0, uaf$s_lastlogin_n, recbufluaf$q_lastlogin_nJ ) ; 
end ; 


1 
} Now output the new record 


PAEAEARAAAAAAAAAAAAAAA AAO 


WAWNWAA WANNA POPONPENPyNPon~on~n 


DONA VEWN (ODDO NEW (OO ONOAUE WN HOO ODVNOULSWN OOO 


BRERA FE EAN WII PORN 2 SS 


3; 1 

3 1 

SS 1708 

s 1709 

3 1 1710 

3 1 1711 

3 3 17 ¢ 

: 1 17 

2 3 1714 

: 1 1715 

3 1 17 § 

3: 1 17 

: 1 1718 

, ¥ 1719 

3 7 1720 4 

; 7 1721 & 

: 3 17 § 4 

3 3 17 4 

3; 1 1724 

;4 1725 

: 1 1726 

: 3 1727 

> 164 1728 

3; 164 1729 4 if rmsbad (S$put (rab = uafrab)) 

3: 164 1730 3 then 

3: 164 1731 4 begin 

; 164 17 ; 4 if .rmserr eql rms$_dup 

3: 164 17 4 then 

3 yr i" : : return LIBSSIGNAL (UAF$_UAEERR) ! username already exists 
3; 164 1736 ; beats 

3 164 1737 LIBSSIGNAL (UAFS_ADDERR, 0, .rmserr); 

3; 165 1738 é return false; 

: 165 1739 end 

3; 165 1740 4 end 

: 165 1741 else 

: 165 17 ; ! 

: Hy £3 Vy Z : The copy was successful -- teil the user and set modify flag 
; 165 1745 4 bogie 

; 165 1746 4 mo oy flag = true; 

> 165 1747 5 security_audit ((if not .uaf$gl_ctlmskCuaf$v_rename] 
3; 1660 1748 5 then nsa$k_recid_sysuaf_cop 

: 1661 1749 4 else nsa$k_recid_sysuaf_ren), 
; 1006 1750 4 old_user_buffer); 

3 166 1751 4 if not .uaf$gl_ctlmSkCuaf$v_rename) 

3 1664 1726 4 then 

3: 1665 175 2 bogie 

: 1966 1754 LIBSSIGNAL (UAF$_COPMSG) ; : 

: 166 1755 6 (.uaf$gl gt Mektual av 6) 1) 

: 1668 1736 2 and not gueTsal ct mskCuaf$v_clitables)) 

: 1669 175 and “ua tog! ctlaskCuaf$v_clitab_pres 

: 1670 1738 then L1B$ IGNAL (UAF$_CLIQARNMSG); 

: 1076 1760 ' Since passwords are folded in with the username, passwords for 
; 1977 170) } COPYed records wil! no longer work--warn the user 


a — - _ 4 


> 15 | 
UAFMAIN 16-Sep-1984 02:16:54 VAX-11 Bliss-32 V4.0-74 Pp 
yO6~000 copy_uaf = copy user record 12788-1382 9¢:36:38 DISKSVMSMASTER: CUAF.SRC UAFMAIN.B32:1 9" BF 


: 1675 1763 if .pwd flog 
; 1676 1764 then | 18851 NAL (UAF $_DEF PWD); 
; 167 1765 uaf$gl_ctlmskCuaf$v_Copy] alse; 
; 1678 1766 6 if (clT¥$present ( sd_add_identifier ) and | 
3 167 176 2 -rdb_exists ) 
: 1680 1768 then 
; 1681 1798 6 begin 
; 1686 1770 6 ! 
: 168 1771 6 ' Set the resource attribute if /ATTRIB=RESOURCE was specified 
; 1083 ae ? and then add the appropriate identifiers to the rights data base 
: 16 1774 6 if cliSpresent (sd_attribresource) 
3 1889 1775 6 then attributes = kgb$m_resource 
: 1688 1778 6 else attributes = 0 ; 
> 1689 177 g uaf$add_ident_recbuf () ; 
: 1690 1778 end; 
3; 1691 1779 4 end; 
3 1096 1780 end ; 
; 169 1781 end 
3 1694 17e¢ 
3 1695 17 ! 
> 1696 1784 ! The attempt to GET_USER_RECORD failed... 
3; 1697 178? ! 
3; 1698 17 $ else return false; 
> 1699 178 
S 1Fon yes 5 i at h hi ded | 
: ! we get here, everything succeeded -- return true 
: 1702 1790 3 | s cae | 
3; 170 1791 return true; 
3: 17046 Fas 
3; 1705 1793 1 end; 
OFFC 00000 ~ ENTRY CORY UAF Save R2,R3,R4,R5,R6,R7,RB,R9O,R10,-; 1593 
58 00000 006 00 9€ $0008 MOVAB CLISPRESENT, R11 ; 
5A 00000000' 9E 000 MOVAB NEWUSERNAME, R10 3 
59 00000000' 9E 0019 MOVAB SD_TOKEN2, R9 : 
58 44 006 9E 0001 MOVAB LIBSSIGNAL, R8 3 
57 00000000' 9E 0001 MOV UAFSGL_CTLMSK, R7 3 
‘ C 38 SUBL #32, 3 
50 67 gS EXTZV #0, #1, UAFSGL_CTLMSK, RO PF 1637. 
0 38 MCCOMB «=6RO, R 3 
67 01 $ F 0 INSV RO, #2, #1, UAF $GL_CTLMSK b 
6 99 BLBS - UAFSGL_CTLMSK, 1$ > 1646 
1 1 D MOVQ #1, DEF_SYS ; 1650 
0 Dd4 000 CLRL = FLAG > 1651 
11 000 BRB 2$ 3 1008 
3 a4 F 1%: MOVL #1, LOCK_REC ; 165 
1 0 MOVQ #i, FLAG 3; 1657 
9 0D 45 2%: PUSHL FLAG ; 1668 
i) 4 PUSHL ODEF_SYS 3 
¢ 00 49 PUSHL LOCK REC ; 
00000000v 48 CALLS #3, GET_USER_RECORD ; 


SS 


] 
15 
UAFMAIN 18-30 -1984 :16:546 VAX-11 Bliss-32 V4.0-74 Page 63) 
yOse000 copy_uaf = copy user record 1 ~300 71382 9¢:39:35 DIEKSVMGHASTERSCUAR SRC SUAFMAIN.B325 1 . b 
03 5 BLAS = «RO, 38 ; : 
01 g 5S é BRW RRs : ; 
9 dD 3$: PUSHL 9 + 1671 3 
68 1 FB A CALLS #1, CLISPRESENT : ; 
14 3 f BLBC a : ; 
5c 0 A?sOSF «0006 PUSHAB TOKENDSC + 1672 ; 
9 OD 6 PUSHL R ; ; 
000000006 00 F 6 CALLS #2, CLISGET_VALUE : ; 
a C BLBC ~—E—s«aRO, : ; 
sc COA 8 6 TSTW  TOKENLEN + 1673 : 
000000006 F pp O74 4$: PUSHL #UAF $_NOUSERNAME t 1674 ; 
0c 5c OA? 81 007C 5$: CMPW - TOKENLEN, #12 + 1680 : 
9 18 000 BLEQU : F 
000000006 8F DD 000 PUSHL #UAF$_NAMETOOBIG + 1681 ; 
8 1 FB 000 CALLS #1, LIBSSIGNAL : 3 
Sc OAT 3¢ 0088 6$: MOVZWL TORENLEN, R3 + 1686 : 
53 07 O008F DECL R : F 
52 04 00091 CLRL : ; 
22 11 00093 BRB 11$ : ; 
51 Onc }§6C9S—«9A 00095 78: MOVZBL SYMBOL_STR, R1 > 1688 ; 
50 60 A? p0 009A MOVL TOKENPTR, R + 1690 : 
O1pD 89 51 6240 3a 0009 Loc (1)£ROJ, R1, SYMBOL_STR+1 : ; 
2 12 000A BNEQ 28$ : ; 
1 D4 90047 CLRL RT ; ; 
1 DS OOOA9 8S: TSTL = RY : F 
08 12 000 BNEG 10$ ; : 
000000006 BF DD 900A PUSHL  #UAF$_INVUSERNAME + 1691 ; 
78 11 00083 9$: BRB 14$ : : 
52 06 00085 10$: INCL 1 + 1690 : 
53 52 1 90087 11$:  CMPL | R3 : ; 
09 1B OOOBA BLEQU 7$ : : 
10 67 5 000BC LBC - UAFSGL_CTLMSK, 12$ + 1696 ; 
56 5c 6A?) «03C ~(0008F MOVZWL TOKENLEN, R6 3: 1699 3 
50 60 a7 00 0003 OVL  TOKENPTR. RO : : 
6A 60 56 28 000C MOVC3 6, (RO). NEWUSERNAME : ; 
FC AA 3 BO 00¢B MOVL R6 NEWUSERLE : 1700 ; 
6E 0080 c? OOCF 12$:  MOVC3 #32, RECBUF+4, OLD_USER_BUFFER : 1706 3 
0 60 A BO 0005 MOVL. TOKENPTR, RO : 1707 : 
20 20 60 0085 ay C 9909 MOVCS TOKENLEN, (RO), #32, #32, RECBUF+4 > 1708 : 
06F4 C7 01 00 OOE¢ MOVL #1, PWD_FLAG : 1709 ; 
000000006 60 Q FB OE CALLS #0 UPDATE RECORD : 1711 : 
4D E EE BLBC STATUS, 16S : 1218 : 
14 67 EB OOF BLBS §_UAFSGL_CTLMSK, 13$ : 171 3 
01E0 7 Be OFS CLRW RE CBUES 5 : 4 3 
08 00 6E ines 09 C Ors MOVCS #0, (SP), #0, #8, RECBUF+396 ; 1722 : 
08 00 6E itis 09 2c 1 MOVCS #0. (SP), #0, #8, RECBUF +404 : 1723 ; 
664 (C7 9F 00108 13$:  PUSHAB UAFRAB : 1729 : 
000000006 09 1 FB 0010 CALLS #1, SYSS$PUT ; ; 
ete | 0 BB OOtt Bees ORO, ee 
$6 74 A? DO OO11A MOVL RMSERR, RO : 1732 : 
000184EC BF 50 01 OO11E CMPL = RO, #99564 : : 


F 15 
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¥06~000 copy_uaf = copy user record 13-388- 38 96:39:33 DISKSVMSMASTER: CUAF ..SRC JUAFMAIN.B32; 1 8} 
A 12 001 BNEQ 15$ F | ; 
000000006 rf DD 001 ; PUSHL #UAF$_UAEERR + 1734 ; 
68 1 FB 1 p 14$: CALLS #1, LIBSSIGNAL : ; 
04 001 RET + 173 ; 
50 DD 00131 15$:  PUSHL + 173 ; 
E D4 001 CLRL. = (SP) : ; 
000000006 8F DD 001 PUSHL HUAFS ADDERR : ; 
68 3 a: 138 CALLS #3, LIBSSIGNAL : ; 
0080 31 001 : 168: BRW 2 + 1738 : 
CC OAA 1 00 00141 178:  MOVL #1, MODIFY_FLAG + 1746 ; 
08 5 BR bole? BLAS” UAFSGL_CTLMSK, 188 Bates 
00040002 } Dp 14h PUSHL r) 659k8 F : 
00050002 BF DD 133 18$: PUSHL #327682 : : 
00000000v 90 é FB 4 19$: CALLS #2, SECURITY_AUDIT : ; 
a 6 E8 0015F BLBS UAFSGL_CTLMSR, 24$ ; 1751 : 
00000000G 8F DD O168 PUSHL #UAF$_COPMSG : 1754 ; 
68 01 FB oot CALLS #1, LIBSSIGNAL 3 ; 
1 67 03 €1 00168 BBC #3, UAFSGL_CTLMSK, 20$ + 1755 ; 
0D 67 04 £0 OO16F BBS #4, UAFSGL-CTLMSK, 20$ : 1756 F 
09 67 05 E1 00173 BBC #5, UAFSGL-CTLMSK, 20$ : 1757 : 
000000006 8F DD 00177 PUSHL #UAF$_CLIWARNMSG : 1758 
68 01 FB 0017D CALLS #1, L SSIGNAL : 
09 06F4 C7 €9 00180 20$: LBC PWO-FLAG, 21$ + 1763 
000000006 8F DD 00185 PUSHL #UAFS$ DEFPWD + 1764 
68 01 FB 00188 CALLS #1, LYBSSIGNAL : 
67 04 8A OO18E 21$:  BICB2 #4. UAFSGL_CTLMSK : 1765 
34 Ad 9F 00191 PUSHAB SD_ADD_IDEATIFIER : 1766 
68 01 FB 00194 CALLS #1 CLISPRESENT : 
2 50 £9 00197 BLBC RO, 24$ : 
1F 70 A? £9 00194 RDB_EXIS : 1767 
80 AA OF 0198 PUSHAB SD_ATTRIBRESOURCE : 1774 
68 or FB OO1A CALLS #17 CLISPRESENT ; 
09 0 £9 OO1A4 BLBC RO. 228 : 
000000006 00 01 DO 001A7 MOVL #1. ATTRIBUTES > 1775 
6 11 OIAE BRB 23$ ; 
000000006 D4 0018 a8: CLRL ATTRIBUTES : 1776 
000000006 00 0 FB 1B6 23$: CALLS #0, UAFSADD_IDENT_RECBUF : 1777 
8 1 DO 0O1BD 24$: MOVL #1. RO : 1791 
04 001C0 RET ; 
50 D4 001C1 258 CLRL = RO : 1793 
04 001¢3 RET : 


; Routine Size: 452 bytes, Routine Base: SCODES + 0680 


$5 
s 


Sep-] VAX=11 $-32 _V UA 
create_proxy = create NETUAF.DAT proxy file 130 305-1382 98: 3: 33 DISK$V men TER: UAE sre UAFMAIN.B32; ? oe 3 ve 


1794 ! Zsbttl ‘create proxy = create NETUAF.DAT proxy file’ 
173 > Brcdal routine create_proxy : novalue = 
e 


179 


[S389 
~ 
_ 
~ 
oO 


lee 


FUNCTIONAL DESCRIPTION: 
This cout ree will create a DECnet Proxy Login File, 
if and only if it does not already exist, 
called NETUAF.DAT, in order to map remote users into 
local accounts. 
INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT INPUTS: 
none 


IMPLICIT OUTPUTS: 


—_ 2) 


ViFWN—O OONOUE WN "OOOO wr 


none 

SIDE EFFECTS: 
| 
| 
| 
| 
| 


SOUS 


NETUAF .DAT is created and initialized 


OD Od Cd Cd Cd OD Od OD CD CD OD OD OD CD OD OD OD OD OD CD OD OD OD CD GD CD 0D CD CD CD CD CD CD OD CD OD OD ~V 


BWA AI ALAA AIRINRUNINININIMIN 2 = 3 2 OS CDOCSOCO oO 


Should be able to create NETUAF.DAT with no problems 


if rmsbad (Screate (fab = naffab) 
then LIBSSIGNAL (UAF$_NAFCREERR, » rmserr); 


40 

te oo 

tg ! 

¢¢ : NETUAF.DAT should not already exist 
46 if .netuaf_exists 

4 then 

4 begic 

6 LIBSSIGNAL (UAF$_NAF AEX); 
2 return; 

end; 

5 

5 

5 


OWNO UNE WO O®@ 


s 


Should connect ok, too 


if rmsbad ($connect (rab = nafrab)) | 
then LIBSSIGNAL (UAFS_NAFCONERR, 0, .rmserr); 


ee ee a ae a a a a a a a ed 
fe fe i te ie te Rt eb be be be be be ee ee te ee ee i i i i i | 


em etd dd od dd 8 wd wd = od dd 


COOONO UE W—O 


anon 
wh 
wn 


$5 
se 


; Routine Size: 123 bytes, Routine Base: 


create_proxy = create NETUAF.DAT proxy file 


SCODES + 0881 


: 17646 1851 
: 1082 1385 5 | nornal is by k 
; > Normal access 1S e 
: 178% 1888 5 nefreb Crab$b_raci ; ne k 
3 natra ra racj = radsc_Kkey; 
: 1788 1856 . ile 
tee i i Establish dd 
Py ; sta Ss roper addresses 
i 177 igo 5 | ying 
3; 177 1860 nafrab Crab$l_ubf] = netbuf; 
3: 1774 1861 nafrab Crab$l_rbf] = netbuf; 
: 1775 1 ¢ 
: 1338 i rt Set NETUAF.DAT exi fl 
° : Set e existence a 
: 1778 1865 3 i 9 
: 1779 1866 netuaf_exists = true; 
; 1780 1867 netuaf_modified = true; 
: 1781 1868 
; 1782 1869 end; 
000¢ 00000 CREATE_PROXY, Save R2,R3 
53 000000006 00 9E 90002 LIBSSIGNAL, R3 
52 00000000' 00 43 0000 R ; 
OA F8 A2 €9 00010 NETUAF_ EXISTS, 1$ 
000000006 8F DD 00014 MUAF$_RAFAEX 
63 01 FB eds #1, LIBSSIGNAL 
04 0001D 
00000000" 00 9F 9001 NAF FAB 
000000006 00 1 FB 00024 #1, SYSS$CREATE 
62 0 09 00028 RO, RMSERR 
0D E8 OO00ZE R 
62 DD 00031 RMSERR 
7E D4 0033 =(SP) 
000000006 8F DD 00035 HUAFS NAF CREERR 
63 03 FB 0038 #3, LIBSSIGNAL 
0634 9F 000 NAF RAB 
000000006 00 1 FB 0004 #1, SYSSCONNECT 
62 0 DO 0004 ; RMSERR 
0D 30 E8 0004C 
: DD OO4F RMSERR 
E D4 00051 =-(SP) 
000000006 8F DD 0093 BVAFS NAF CONERR 
6% 3 FB 9 #3, LIBSSIGNAL 
0652 C 1 90 0005¢ #1 FRAB+3 
0658 ¢ 058¢ C2 9€ 6 61 NETBUF, NAFRAB+3 
065¢ «¢ 58C 9 68 NE TBUE NAF RAB+4 
‘BOA D 9 of #1, NETUAF_EXISTS 
00000000' 0 1 BO 0073 #1. NETUAF "MODIFIED 


15 
8o0n 18S 18:38:33 Pee GAAE tA ecURe saeSuarmamw.e32:9°%" «$6 


—$—$———————_— _ - -—4 
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; 17 1870 1 %sbttl ‘modify_uaf - update user record (s)' | 
; 1785 1871 lLobal routine modify_uaf : novalue = 
3 7 $ 1 ie egin 

3; if 187 | 
: 1788 1874 '++ 
; 1789 1875 : 

; 1739 } 6 : FUNCTIONAL DESCRIPTION: 
: 1236 ! 4 Routine to modify any of the fields in one or more user records. | 
: 1794 1880 ! INPUTS: 

ee 

: : none 

; 1599 1888 : 

: 1798 1884 ! IMPLICIT INPUTS: 

: 1799 1885 ! 

: 1800 1886 ' none 

: 1801 1887 : 

: 1308 1888 ! OUTPUTS: 

; 180 1889 ' 

; 1804 1890 ! none 

; 1805 199) ! 

: 1806 1 3 ! IMPLICIT OUTPUTS: 

3; 1807 189 ! 

; 1808 1894 ! none 

; 1809 1895 ! 

; 1810 1896 ! SIDE EFFECTS: 

; 1811 1897 ! 
3 sig 1898 ‘ none 

: 181 1979 : 

3; 1814 1900 ' ROUTINE VALUE: 

>; 1815 1901 } 

: 1816 1306 : none 

; 1817 190 feo 

; FH | 1904 

3; 181 1905 local 

; 1820 1208 status; 

3; 1821 190 

: 18 g 1908 : 
; 18 1909 ! Obtain the user specification. This sets wildcard flags and initializes 

3 1824 1910 ! the appropriate key in RECBUF. | 
: 1858 ise 3° 

; 18 $ 1918 if not parse_wild (sd_token!, false) ! Null string is disallowed | 
; 1898 139 then return; 

: 18 1218 ua‘rabCrab$l_rop]) = rab$m_rlk; ! Lock records for writing | 
3 133) 191 raoptr = outrab; 
3 : ¢ 1313 found_match = false; 

; 18 1920 if rmsbad (status = wild_user (modify_rec)) ! Modify each record 

; 1835 1921 then 

3 1 19 § begin 

3 1 19 f .rmserr eql rms$_rnf 

3 1 1924 then 

3 1 1925 LIBSSIGNAL (UAF $_BADSPC) 
3; 1840 1926 else 


UAFM 18-50 Sep-1984 VAX-11 Bliss-32_V 
VO6-000 modify_uaf - update user record (s) 30071382 98: 3$: 33 DISKSVMSMASTER: (UAE OSRCIUAFAIN. 832; ? 
4 (if .rmserr neq 0 
4 hen 

4 LIBSSIGNAL(UAFS_MDFYERR, 0, .rmserr)) 

en 

else 

begin 

Jae status and .found_match 
4 
4 
2 (.uaf$gl_ctlmskCuaf$v 
i and not ,uaf$gi_ctlmsk 
4 
; ends” 


and .ua tigl ctlmskCuaf 
toe L1B$ 


tT8SS suas cuars. arian 


uifty, scitablesd) 
v_clitab_pres 
IGNAL (UAF $_CLIQARNMSGJ; 


Sete Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge ee Ge Gee 
— ue ee ss 1 ds a 2 a — 
fe te Te Je] 

NOUS WN OO OONOUL WN 
2 ts 2 2  — _ 
OWODODDOOVOOOOOOOOOOOO 


FEE AWWNWINNIWwronorn 
WN OC CONOUS Wr O0O~ 


MAMIE 


end; 


001¢ 00000 .ENTRY MODIFY_UAF, Save R2,R3.R4 
54 000000006 00 9€ 9000¢ MOVAB LIBSSIGNAL, R4 
53 00000000' 90 9E 0000 MOVAB UAF SL. CTLMSK, R3 
—E D4 00010 CLRL = = (SP) 
00000000 00 9F 0018 PUSHAB $0. TOKEN1 
000000006 90 Q FB 0001 CALLS > PARSE_WILD 
1 E9 OO01F BLBC 
0668 C3 00080000 BF DO 00022 MOVL 1 UAFRAB+4 
F4 A O6F cS E 00028 MOVAB OUTRAB. RABPTR 
8 3¢ C 4 00031 CLRL FOUND MATCH 
00000000v 60 9F 00035 PUSHAB MODIFY REC 
00000000v 09 9} FB 000 CALLS wICb 
7% =A 0 pO 0004 MOVL STATUS, RRSERR 
@ 50 £8 0004 BLBS STA TUS, 2$ 
2 74 A DO 0004 MOVL RMSERR es 
00018282 &F 52 D1 9040 CMPL  R2, #98994 
12 00054 BNEG 
000000006 8F ODD 0 36 PUSHL HUAFS _BADSPC 
11 C BRB 
0 OOSE 1$ TSTL i 
1 0 BEQL 
$e 0D PUSHL 
E D4 CLRL 
000000006 i DD 00066 PUSHL air MDF YERR 
4 3 FB i CALLS sects: 
1€ 0736 3 £9 Q 2s: BLBC —- FOUND_MATCH 
000000006 8F DD 0007 PUSHL AFS “ROEYRSG 
4 1 Fe 78 CALLS #1, LIBSSIGNA 
11 6 3 £ 7 BBC #3. UAFSGL SCILMSK, 4$ 
OD 6 4 €0 BBS #4; UAFSGL-CTLMSK. 4$ 
09 5 5 £1 BBC #5. UAFSGL~ ZGTUMsK. 4$ 
000000006 8F DD A PUSHL suit Ch WK RNM 
4 1 £B 3$ CALLS LTB$S1G iA 
04 00093 4$ RET 
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UAFMAIN 18-5¢ -1984 02:16:54 VAX-11 Bliss-32 V4.0-74 Page 70 
v04-000 modify_rec = update a user record action routin 1 730071382 96:39:33 DISK SVMSMASTERSLUAF SRC SUAFMAIN. 83231 ’ (11) 
>; 1859 13¢¢ 1 Zsbttl ‘modify_rec - update a user record action routine’ ; 
; re 1302 1 os bag modify_rec = : 
; 186 1949 
: 186 1308 1++ : 
> 1864 194 } : 
$ 139? 1329 FUNCTIONAL DESCRIPTION: : 
: Hh +e4 1326 | Modify an individual user record. : 
: 1869 1954 2 | INPUTS: ; 
; 1970 132? } : 
: 1871 19 § ' none 5 
; 1876 195 ' : 
; te 1328 : IMPLICIT INPUTS: ; 
: 4 1 1299 RABPTR = RMS data structure for the file : 
: 1877 1968 i OUTPUTS: : 
; 1878 196 ! F 
: 1879 1964 ! none : 
: 1880 1965 ! : 
: 133) 1298 IMPLICIT OUTPUTS: ‘ 
: 1888 1968 i none : 
3; 1884 1969 ! : 
: 1382 1ony SIDE EFFECTS: : 
: 1887 1976 i none $ 
; 1888 197 ! : 
: 1889 1974 ¢ | ROUTINE VALUE: : 
; 1891 1976 i If an error is encountered the appropriate status is returned : 
; 1096 1977 : except if the error message has already been output in which : 
3 1937 1308 } case 0 is returned. : 
; 1895 1980 2 - ; 
3: 1896 1981 local : 
: 1897 1386 old_uic : $bdlock(4], : 
; 1898 198 new_uic : $bblock(4J ‘ 
3; 1899 1984 oldaccname : vector uaf$s_account. byte], : 
3; 1900 1985 newaccname : vector Cuaf$s_account,bytel, ; 
3 1901 1986 oldaccdesc : statdesc , : 
3 1308 ns +4 newaccdesc : statdesc , : 
3 1907 1358 status : long ; : 
: 1905 1990 2! : 
3 1906 1991 ' User record has been read into RECBUF by caller. Update values ; 
: 13 1336 and modify the record. : 
: 1909 1994 i when accessing records by uic, this routine is called repeated : 
3; 1910 1995 ! from WILD_USER. UPDATE_RECORD is called to modify the appropriate é 
3 1911 ip 4 ! record fields for each requested record, and therefore must 
: 1916 199 ! reparse the command Line each time. If call_count is greater 
: 4 1398 : than 0, the command Line is reparsed. 
> 1915 2000 2° 
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iif -by_account 


(IF NOT fmg$match_name (NAMELEN eee ACCOUNT te bapa 
BUF CUAF$T_ACCO 


' 
' 
‘ Bae _tokenlén, eel token) 
! THEN 

! RETURN TRUE) 


' 
if .str wild 
and not” fmg$match_name (namelen (uaf$s_username,recbufCuaf$t_username]), 
recbufCuaf$t_uSername 
smatch_tokenlen, match_token) 


OOooooo: 


then return true; 
found_match = true; 


if ch$eql » defuser<0,8>, defuserti, etokenlen, .tokenptr, ' ') 
or ch$eql ( -defuser<0, 8>, defuser+ 
namelen (uaf$s username, | "recbufCuafSt _username]), 
recbufCuaf$t_username], ' ') 


jelelelelelelelelelololelololo) 


then 
a in 
default = true; 
defauct ua 
call_count = .call_count * tT 
return true; 
end; 


§ Save the old UIC and account name 
3 
4 
4 


old vicCuic$v_format] 
old_uicCluic$v_group rbciul Pua teu or gored i 
old_uicCuic$v_member recbuf Cuaf$w_me 

ch$move ( uaf$s_account, ‘perbulluatet fee oldaccname ) 

oldaccdesc Clength] = namelen ( uaf$s “account, recbufCuaf$t account) 3 
oldaccdesc Cpointer] = oldaccname ; 


if update_record () 
then 
begin 
Save the new UIC and account name 


BREESE EWAN AAAI EPDINININININPONINDY) 2 I OO OO 
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new_uicCuic$v_format 
new_uicluic$v_group “recbut { fuateu. “9rd i 
new_uicluic$v_ gomer = .recbuf Cuaf$w_mem 

ch$move ( uaf$s zecount. recbufCuaf$t _3ccount], newaccname ) 

newaccdesc Clength)_ = namelen ( uaf$s _account, recbufCuaf$t account?) $ 
newaccdesc [pointer] = newaccname ; 


1 
: Update the UAF record 


if rmsbad (Supdate (rab = uafrab)) 
then 


PIP IM IN INININININININININYPININININININPINININPIPIPIPIPNINININININININPI PININPININYIPIPYPIPUPINIPUPUNPYINININPIPIPPUNPYD 
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begin 
LIBSSIGNAL(UAFS_MDFYERR, 0, .rmserr); 
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; 1973 828 & return .rmserr 

: 1974 0 4 end 

; 1975 899 3 else 

; 1308 61 4 begin 

: 197 006 4 mo uty flag = true; 

: 1978 065 4 security_audit (nsa$k_recid_sysuaf_mod); 

3 1979 064 4 call_count = .call_count + T; 

; 1980 065 ; end; 

: 1981 066 

; 1356 067 4 if (cli$present ( sd_modify_identifier ) and 

; 198 2068 4 -fdb_exists ) 

: 1984 34 3 then 

3; 1985 0 4 begin 

>; 1986 071 4 

3: 1987 sore 4 ! 

>; 1988 075 4 ! If the UIC changed then modify the identifiers 

; 1989 Sone 4 ' 

3; 1990 075 4 if .old_uic neq .new_uic 

3 1991 2076 4 then 

3 1oe8 2077 5 begin 

3; 199 2078 5 local 

3: 1994 2079 5 oldidname : vector Ckgb$s_name, bytel, 

: 1995 2080 5 oldiddesc : Statdesc ; 

3: 1996 2081 5 . 

3; 1997 att) 5 oldiddescClength]_ = kpate ene ; 

; 1998 208 : oldiddesc(pointer] = oldidname ; 

3 1999 P 2084 status = $idtoasc ( id = .old_uic, 

: 2000 P 2085 5 namlen = oldiddescClengthJ, 

3 2001 2086 5 nambuf = oldiddesc ) ; 

: $00s 2087 5 

; 200 2088 5 if not .status 

3 2004 2089 § then LIBSSIGNAL(UAF$_RDBMDFYERRU, 2, 

; 2005 2090 5 -Old.uichulcey group) 

; 2006 2091 5 -old_uic uic$v-memberd, -Status) 
; 2007 $236 5 else if .status 

3; 2008 2093 5 then 

3 S484 2094 6 begin 

; 2010 P 2095 6 status = $mod_ident ( id = .old_uic, 
3; 2011 2096 6 new_value = .new_uic ) ; 
: sols 3444 6 

; 201 098 6 if not .status 

3 2014 2099 6 then LIBSSIGNAL(UAF$_RDBMDFYERR, 1, oldiddesc, .status) 
; 2015 2100 6 else 

; O1g 101 4 begin 

; 201 106 Prgetet tse modified = true ; , 
3; 2018 103 7 LIBSSIGNALTUAF$_RDBMDFYMSG, 1, oldiddesc); 
3; 2019 104 6 end ; 

3; 2020 105 5 end ; 

3; 2021 196 4 end; 

: 20 4 10 end ; 

3; 202 108 return true ; 

3 2024 109 en 

3; 2025 110 else 

: 20 $ 111 begin 

3: 20 WN $release (rab = uafrab); 

3; 2028 11 return false 

3; 2029 114 end 
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‘ 16-Sep-1984 0e:) 754 
modify_rec = update a user record action routin 14-Sep-1984 15:21:22 D 
1 end; 


-EXTRN 
»EXTRN 


O7FC 00000 MODIFY_REC: 
. WORD 


VAX-11 Bliss-32 V4.0 
ISKSVMSMASTER 


SYSSUPDATE, SYSSMOD_IDENT 
SYSSRELEASE 


ave R2,R3,R4 
IBSSIGNAL, R 
EFUSER+1, R9 
F BUF Sh, RB 
(SP). Sp 
17694720, OLDACCDESC 
OLDACCDESC +4 
#17694720, NEWACCDESC 
NEWACCDESC+4 


{0 


BUF+4, R 
#32, #32, RECBUF+4 
-32(R0), R2 

MATCH _TOKENLEN, R4 
FMOSMATCH_NAME 


. 3$ 
#1. FOUND MATCH 
DEFUSER, R4 
TOKENPTR, 


RO 
R4, DEFUSER+1, #32, TOKENLEN, (RO) 


2$ 
#32, #32, RECBUF+4 
RO, # 


R4. DEFUSER+1, #32, RO, RECBUF+4 


4$ 

#1, MOD_DEFAULT 
#0; DEFAULT_UAF 
CALL _COUNT 


#0, #30, #2, OLD_UIC 

RE CBUE +38, #16, #14, ovo_uIc 
RECBUF +36, OLD ul 

#32, R eur . OL DACCNAME 
#32. #32, RECBUF+52 

RO, #32, OLDACCDESC 

OL DAC CNAME. OLDACCDESC +4 

#0, UPDATE RECORD 


0 C 
RECBUF + $8, #16, Wi4, NEW_UIC 
RECBUP +36. NEW_UIC 

#30, RECBUF+52- NEWAC CNAME 
#32, CBUF +52 


RE 
#32, NEWACCDESC 
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: 1 33 0 age 74 
Vv modify_rec = update a user record action routin 1 2 DISKSVMSMASTER: CUAF .SRCJUAFMAIN.832; (11) 
2c OA 38 AF 9E OO0DF VAB_ NEWACCNAME, NEWACCDESC+4 : 2049 
05E4 9F OO0ES PUSHAB UAFRAB + 2054 
000000006 1 Ff £8 CALLS #1, SYSSUPDATE : 
fe OA 0 D EF OVL RO, RMSERR : 
1 E F3 LBS RO, 6$ 3 
FAB ODD r6 PUSHL RMSERR : 2057 
7E D4 OOF CLRL. = (SP) : 
000000006 8F DD 000FB PUSHL aVAFS MDF YERR : 
A 03 FB 00101 CALLS #3, LIBSSIGNAL 3 
0 FAB BO Oi ‘ MOVL RMSERR, RO : 2058 
00000000' 00 1 DO 00109 6s MOVL #1, MODIFY_FLAG : 
00030002 4 DD 001 3 PUSHL #19661 . : 30e8 
00000000v 00 01 FB 00116 CALLS #1, SECURITY_AUDIT : | 
D8 A8 D6 0011D INCL CALL_ COUNT : 2064, 
FF63 C9 OF 00120 PUSHAB SD_MODIFY_IDENTIFIER + 2067. 
000000006 00 gi FB 00124 CALLS #17 CLISPRESENT ; | 
70 0 €9 00128 BLBC $ : 
7F FO AB ED 0012 BLBC  RDB_EXISTS, 108 ; 2068 
57 56 D1 001 CMPL D-UIC, NEW_UIC ; 2075 
7A (13 00135 BEQL : 
6E 010E0000 8F dd 00137 MOVL #17694720, OLDIDDESC : 2080 
04 AE D4 0013 CLRL OLDIDDESC +4 ; | 
6E 20 BO 00141 MOVW #32, OLDIDDESC > 208 
04 AE 08 AE 9E 00144 MOVAB  OLDIDNAME, OLDIDDESC+4 > 2083. 
7E 7C 00149 CLRQ ss =( SP) + 2086 
7E D4 00148 CLRL = = (SP) ; 
OC AE 9F 00140 PUSHAB OLDIDDESC ; 
10 AE OF 00150 PUSHAB OLDIDDESC : 
56 DD 0015 PUSHL OLD_UIC ; 
000000006 00 06 FB 00155 CALLS #6, SYSSIDTOASC ; 
52 50 09 0015¢ MOVL RO STATUS ; 
17 32 E8 0015F BLBS STATUS, 7$ ; 2088 
5 bp 00162 PUSHL STATU : 2091 | 
7E 56 3C 00164 MOVZWL OLD_UIC, -(SP) ; 
7E 56 OE 10 EF 00167 EXTZV. #16, #14, OLD_UIC, -(SP) : 2090 
02 DD 0016C PUSHL # : 2089. 
000000006 8F DD 0016 PUSHL HUAFS RDBMDF YERRU : 
6A 05 FB 00174 CALLS #5, LIBSSIGNAL ; 
8 11 00177 BRB : 
57 pp 0179 7$: PUSHL NEW_UIC > 20% 
7E 7C 0017B CLRQ. = = (SP) ; 
7E D4 0017D CLRL = = (SP) ; 
36 DD Out PUSHL OLD_UIC ; 
000000006 99 F 181 CALLS #5, ~SYSSMOD_IDENT ; 
é dO 001 MOVL RO. STATUS : | 
1 E8 00188 BLBS STATUS, 9$ ; 2098 
D 0018 PUSHL STATUS > 2099. 
04 AE 9F 001 PUSHAB OLDIDDESC : | 
1 oD 0019 PUSHL # : 
000000006 8F oD 0019 PUSHL #UAF$_RDBMDFYERR ; 
6A 4 FB 00198 CALLS #4, LIBSSIGNAL ; 
11 19 gs: BRB 1 : 
Fa AB 1 90 OO1A0 98: VB #1, -RIGHTSLIST_MODIFIED ; 3108 
F DD OO1A4 PUSHL SP ; 210 
DD 1A PUSHL #1 ; 
000000006 8F DD OO1A PUSHL #UAF$_RDBMDF YMSG ; 


UAFMAIN bese VAX-11 Bliss-32 V4.0-7 75 
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F 1A CALLS #3, LIBSSIGNAL : 
3 83 8 a8 10$: MOVL #1, Rd : 2111 
4 00184 RET ; 
OSE4 8 9F 00185 118 PUSHAB UAFRAP ; 2112 
000000006 00 1 FB 95188 CALLS #1, SYSSRELEASE ; 
0 04 001C0 CLRL RO 3: 2913) 
04 001C2 ¢ 21ts) 


; Routine Size: 451 bytes, Routine Base: S$CODE$ + 0990 
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; 20 § 116 1 %sbttl ‘remove_uaf = remove username from file’ 

; 20 117 (1 giopal routine remove_uaf : novalue = 

; 20 118 egin 

; 2035 11 

: $6 13) 5 i** 

; 5 3 } § ' FUNCTIONAL DESCRIPTION: 

: ok ; ¢ Routine to delete a user record from the UAF file. 
> 206 1 i INPUTS: 

3 $08 1 $ ! 

3 2044 128 : none 

; 20465 129 ! 

3 2046 150 ' OUTPUTS: 

: 2047 13) ‘ 

3; 2048 1 ¢ ! none 

: 2049 1 ! 

3 Bat : ¢ IMPLICIT INPUTS: 

: 034 1 $ : rename: a logical flag which indicates whether this COPY is part 
3; 205 3 ! of a RENAME operation 

3: 2054 138 ! 

; 2055 139 ' ROUTINE VALUE: 

; 2056 140 ! 

; 2057 141 ! none 

; 2058 146 ! 

3; 2059 14 ' SIDE EFFECTS: 

3; 2060 144 ! 

3; 2061 145 ! This routine also deletes any NETUAF entries for the 

3 O06 | local user which is to be removed (If NETUAF.DAT exists) 
3: 2064 148 tes 

; 2065 149 

3; 2066 150 ! 

3; 2067 151 ! Look for the record ap bdbee by the user. Make sure 

3 Spee 136 !' the DEFAULT and SYSTEM records are not removed. 

: 2069 15 ! 

; 2070 154 

3 2071 155 if get_user_record (true, false) 

5 O76 138 then 

3; 207 15 

3 2074 138 ! 

3; 2075 15 ' User record has been found and read into RECBUF 

; B78 169 Zero the username field and update the record in the file 
3; 2078 166 begin 

3; 2079 163 4 if rmsbad ($delete (rab=uafrab)) 

; 2080 164 then 

3; 2081 165 LIBSSIGNAL(UAFS$_REMERR, 0, .rmserr) 

: oss 196 else 

3 208 167 4 begin : 
; 2084 168 4 mo ify_flag = true; ! mark file as modified 
; 2085 199) 4 if not .uvaf$gl_ctlmskCuaf$v_rename) 

3 oBe 170 4 then 

3; 20 171 4 secur ity pudit (nsa$k_recid_sysuaf_del); 

: 2088 172 4 if not .uaf$gl_ctlmskCuaf$v_rename) 
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; 2089 173 4 then 
: 2090 174 «(5 begin 
:; 2091 175 ! 
: 209 178 i If there is a proxy login file, delete entries for 
: bor if the user just removed from SYSUAF.DAT 
3; 2095 138 if. yo pee 
3; 209 139 then adjust 3k (remove_records); 
: 044 } 1 F16SSI6 AL(OAFS EMMSG); 
; 2099 1 : i Unless spect Ticatty requested not to 
5 189 184 i remove the corresponding identifier from the 
: 13) 132 ; rights data base. 
3 108 189 6 it ist Seresens ( sd_remove_identifier ) and 
3: 2704 188 6 rdb_exists ) 
; 198 150 é soe f$ ident buf () 
$ uaf$remove_ident_recbu : 
: 2107 2191 4 end; a me 
3 2108 136 3 end; 
; 2109 193 2 end; 
: 2110 194 1 end; 
-EXTRN SYSSDELETE 
000C 00000 ~ENTRY REMOVE oo Save R2,R3 3: 2117 
53 00000000G 00 9€ 00002 MOVAB LIBSSIGNA 3 
52 00000000" 00 9€ 00009 MOVAB - MSERR Re 5 
7E 01 7D 00010 MOVQ -(SP 3: 2155) 
00000000vV 00 02 FB 00013 CALLS ne. GET_USER_RECORD ; 
6C 50 €9 OOOIA BLBC —s_«RO,_-3$ ; | 
OSFO C2 9F 00010 PUSHAB UAFRAB : 2163. 
000000006 00 01 FB 00021 CALLS #1, SYSSDELETE 3 
62 50 DO 00028 MOVL RO, RMSERR ; 
OE 50 €8 00028 BLBS RO, 1$ F | 
62 0D 000 F PUSHL RMSERR ; 2165. 
7E D4 000 CLRL ; | 
00000000G 8F DD Bas PUSHL mars REMERR 3 
63 03 FB 000 CALLS LIB$SIGNAL : 
04 00038 RET 3 
00000000" 00 01 4 03C 1$: MOVL MODIFY_FLAG ; 2168) 
42 BC AZ EB 0004 BLBS uas sol CTLASK, 3$ : 3169 | 
000200 Hi DD 0004 PUSHL a13t 4 3 e171} 
000U0000V 90 1 FB 0004D CALLS SECURITY pa : 
1 8C Ag E8 00054 BLBS UARser ce TLMSR ; 172 
09 F8 A2 €E9 00058 LBC NE TUAF — “EXISTS. es 3 2179 | 
1 OO 5C PUSHL 4 3; 2180 | 
00000000V 00 1 FB 3 CALLS ng PROXY 3 
000000006 8F DD 00065 28: PUSHL HUAFS MASG : 2181) 
1 FB 68 CALLS #1, re BSSIGNA : 
00000000" 00 9F of PUSHAB SD “REMOVE IDENT IF LER ; 2187) 
00000000G 00 1 FB 4 CALLS #1, CLISPRES 3 
E 78 BLBC 8 ; 
FC A2 «9 3 BLBC RDB_EXISTS, 3$ > 2188 | 
000000006 0 0 FB 0008 CALLS aD UAF SREMOVE_IDENT_RECBUF : 2190 | 


vet 


; Routine Size: 


remove_uaf - remove username from file 


WEsectaes Cet 


-Sep-1984 
04 00089 3$: 


138 bytes, Routine Base: $CODE$ + 0853 


RET 
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SIDE EFFECTS: 
An entry is removed from NETUAF .DAT 


node_len, 
node_ptr 
remuser_Len, 
remuser_ptr, 
counter, 
success; 


1 195 1 %sbttl ‘remove_proxy = remove a proxy record' 
if 136 hy routine penove_prony : necaur = 
14 19 gin 
15 138 
BB bie 
18 0 ; FUNCTIONAL CHARACTERISTICS: 
9 08 This routine removes proxy login entries from NETUAF.DAT 
: 5 INPUTS: 
4 $ i none 
5 8 ! 
8 3 OUTPUTS: 
g 1 none 
9 § IMPLICIT INPUTS: 
; 2 ; none 
i IMPLICIT OUTPUTS: 
; ; none 
1 i ROUTINE VALUE: 
2 ¢ ! 
2 ! none 
$$ 4 ! 
5 ! 
2226 ! 
22e7 ! 
2228 ! 
$$ 9 ! 
2230 
a 
4 


Make sure NETUAF.DAT exists 


if not .netuaf_exists 
then return LIBS$SIGNAL (UAFS$_NAFDNE); 


! 
: Retrieve remote name in node::remotename form 


WWW WWII POPononononononong 3 3 3 3 3 OOOO 


OOOO MEW" OVOONOu 


MWOUIUIUIMUIMUIUI ES BEER EASES PW 


cli$get_value (sd_tokenl, tokendsc); 


' 
! Verify proper format 


ee ee em ae ee ee ee ee ed dd ed dd od 2d dd wd dd 


RIPIPIPIPPIPIMOPPINPOPYPNINIPIPPININIPINIPINIPIPINPINININNNIPNoNoNoNy 
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DNS 
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an 
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3: 2169 ! 

3 1%6 § if not remote parse (node_ptr, node_len, remuser_ptr. remuser_len) 
3; 2171 then return; 

; 76 5 

3 217 § ' 

; 1? ! Copy into appropriate fields 

3 176 § ch$copy ( -node_len, .node_ptr, * ', naf$s node, netbuf(naf$t_node)); 
: 1? 99 ch$copy (.remuSer_ len, -remuser_ptr, ' ', naf$s_remuser, netbuf nat$t _remuser)); 
3 173 86 nafrabCrab$l_rop] = rab$m_rlk; 

+ 2181 64 success = get_proxy_record (); 

3; 218 06 ! 

> 2184 6 ' Delete the record 

; 2185 68 ! 

: Hs 9 if .success 

; 218 0 then 

; 2188 71 begin 

; 2189 Le: 4 if rmsbad (S$delete (rab = nafrab)) 

: 2190 7 then 

3; 2191 74 LIBSSIGNAL (UAF$_REMERR, 0, .rmserr) 

3 135 75 lse 

3 219 76 4 "bes in 

3 2194 77 & se curity audit (nsa$k recid _netuaf_del); 

3: 2195 78 4 LIBSSIGNAL (UAF $_PREMMSG) ; 

3: 2196 79 end; 

3: 2197 80 end 

3: 2198 $B) else 

3 ih 4 S LIBSSIGNAL (UAF $_REMERR) ; 

8 $01 284 netuaf_modified = true; 

3; 2202 85 end; 


O1FC 90000 .ENTRY REMOVE PROXY . Save R2,R3,R4,R5,R6,R7,R8 > 2196 | 
38 £090 80006 8F DO 0000 MOVL #UAFS_REME R 3 
3 000000006 09 9E 00009 MOVAB LIBSSTGNAL, RRee ; 
6 00000000' 00 9€ 00 19 MOV RMSERR a3 : 
3 19 C 9 1 SUBL #16, S ; 
A FB AG OE 1A BLBS NETUAF_EXISTS, 1$ ; 3363 
000000006 ef DD 15 PUSHL #UAF$_RAFDNE 7 2243 
67 1 FB 3 CALLS #1, LIBSSIGNAL : 
FB A fF 8 8 18 PUSHAB TOKENDSC > 2248. 
00000000' oF PUSHAB SD _TOKEN! : 
000000006 00 FB CALLS #27 CLISGET_VALUE ; 
D PUSHL : 2253 
0 AE OF A PUSHAB REMUSER_PTR : 
1 AE OF PUSHAB NODE_LER : 
1 AE F 4 PUSHAB NODE-PTR : 
FAI? CF FB 4 CALLS #4, REMOTE PARSE ; 
63 O.€ BLBC RO, 6 : 


UAFM 13-50 Sep-1 VAX-11 Bliss-32 V4.0-7 1 
¥04-000 remove _proxy = remove a proxy record 1 308-1 3h 96: 3§: 33 DISKSVMSMASTER: CUAF . se UAF MAIN.B32; ath ty 
oe 7 oe . o - U Py 
20 20 OC BE a 3 AE 2C 0004 MOVCS NODE_LEN, @NODE_PTR, #32, #32, NETBUF 2259 
20 20 04 BE i. ef 2c : MovcS REMUSER LEN. @REMUSER_PTR, #32, #32, - : 2260. 
0638 6 00088008 F DO 5 MOVL sof 20388. NAFRAB+4 3 2262) 
00000000v 0 : Fe CALLS #0, GET.PROXY_RECORD + 2264. 
: LBC = SUCCESS* 3$ : $9 
0634 (6 OF PUSHAB NAFRAB : 2272 
000000006 00 1 F 7 CALLS #1, SYSSDELETE ; 
66 8 1) 7¢ MOVL RO, ve RR s 
08 E 7F BLBS RO, 2$ : 
6 dD PUSHL RMSERR + 2274. 
D4 CLRL. = (SP) : 
58 DD 000 PUSHL iH : | 
67 6 FB 00 CALLS #3, LIBSSIGNAL : 
A 11 00088 BRB 3 | 
00020003 8F DD 8p 2s: PUSHL > 2277) 
00000000v 1 FB 0009 CALLS SECURITY AUDIT : | 
000000006 8F pd O009A PUSHL an 6 ; 2278) 
of DD OOOA2 3S: PUSHL Rb > 2282 | 
67 01 FB 0004 4$: CALLS #1, LIBSSIGNAL : 
00000000" 00 01 00 000A7 5$: MOVL #1, NETUAF_MODIFIED > 2284 
04 OOOAE 6S: RET > 2285 


; Routine Size: 175 bytes, Routine Base: S$CODE$ + OBDD | 


1984 02:16:54 VAX-11 Bliss-32 V4.0-74 ” 
rename_uaf = rename user record ath 96:39:35 DISKSVMSMASTERSCUAE SRCSUAFMAIN.B3251 09" (105 
86 1 Zsbttl ‘rename_uaf - rename user record’ | 
1 global routine rename_uaf : novalue = 
egin 
lee 
] 


FUNCTIONAL DESCRIPTION: 


Effect a user authorization record rename, by 
performing a COPY and a REMOVE operation. 


INPUTS: 
none 
IMPLICIT INPUTS: 
none 
OUTPUTS: 


OOOCCOCOCOOOOOOOO0OMMo 


rrururururururururururururrururrunn F 
S 


WWIII PIPPI NPIPININIDY — 9 SS SS Ss OOOO 


none 
IMPLICIT OUTPUTS: 
none 
SIDE EFFECTS: 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
! 
i 
' 
i 
i 
i 
i 
i 
i 
i 
: A user authorization record is copied with a newname; the 
; original record is then deleted. : 
: This routine also causes yt of any NETUAF entries for the 
local user which is to be renamed. 

ie 

uaf$gl_ctlmskCuaf$v_rename] = true; 


POPOPOPIPIPINININONOPPononononoponofnofnongnys 


POPIMOPIPOPININIPONSPOPIPONoPoNPoNnyNonofnony 


Copy the new authorization record 
if (copy_uaf ()) 
en 


NOUS WN—OOOn~ 


begin 


APOPOPIPIPININININID 2 2 2 OOOO 


PELL SEW 


' Remove the old authorization record 


remove_uaf (); 
LIBSSIGNAL (UAF$_RENMSG) ; 


Because passwords are folded in with the username, passwords for 
RENAMEd records will no longer work--warn the user 


WAWAAIA 


MR—OOODNO UNEP OOO NO UNF WIND $ O DOONAN EWN ($0 OONOAUE WN) 0 OO NOUS W000 


if .pwd {tag 
then LIBSSIGNAL (UAF$_DEFPWD); 
1 


i Modify the rights data base if one exists 


PUPP APSPVAPSIII 


Somer —ooo 


PIPIPIPIPINIPOPININIPIPIPIPYIDIPYPIPIPIPINYINIPIPIPYININPINIPIPIPINPIPIPIPIPIPIPUPIPUDIPIPIPIPINIPOPYPIPUPIPOPOPoNoPyD 


WAAL AAI AI AAAI AWA NAIA AINA AAI AAAI AAAI AIANI AWA 


Be Se Ge Se Se Oe Se Se Ge Se Be Se Se Se Ge Se Ge Se Ge Ge Fe Se Fe Ge Ge Ge Ge FH Se Se Ge Ge Se Ge Se Se Se Ge Ge Ge Ge Se Se Se See ee Se Se Se Se Se Se Se sstees 


Rononononononononononononornonononrny 
ROPIPOPOPOPOPOPONONIPNohofnynyny 


ee 


83 


16 
UAFMAIN 1b-Se -1984 16:54 VAX-11 V4.0-74 P 
v04-000 rename_uaf - rename user record 122868-1 382 96:39:33 DISKSVM eLUAE SRCSUAFMAIN.B32;1° 9° (153 


if (cli$present ; sd_modify_identifier ) and 


-rdb_exists 
begin 
local 
status : oy 
old_name_buf f : vector Ckgb$s_name, byte], 
old_name_desc : statdesc , 
new_name_desc : statdesc ; 


old_name_desc(length]_ = Rga?s none : 
old-name_desc(pointer) = old_name_buff ; 
new_name_descllength] -newuserlen ; 
new_name_desclpointer] = newusername ; 


uaf$find_uic () ; ! Build Identifier from the recbuf 


SN NA AAA AAAAO 
—OODONOUS —_ 
POIPOIPIPOIPIPOPIPIPOPIPINININPoPofnony 


WWW 


WO OOO O00 0000 00 00 09 09 09 09 SI NINN NN SN SNS SID DDD DODD TUTTI 


! 
Find the ascii name 


status = $idtoasc ( id 


= .ident, 
namlen = old_name_descClengthJ, 


OCODwoyanA~ 
WN SO OONOus 


vv 
FUR [OOO NOAUE WIN $ O OONA UE UN $9 OONAUE WIN SO OODNAOYV EWN OOONOULSW 
=PIPINIPIPIPIDNPI ME VIP AD GTI IIIT BE EEE PPP PPP PPP PP PPP PPP PW OW 


32 3 
22 3 
$5 $3 
2284 $3 nambuf = old_name_desc ) ; 
2285 3 if not .status 
2286 23 then LIBSSIGNAL(UAF$_RDBMDFYERRU, 2, 
2287 $3 Jgenthuicév_group) 
288 3 -identCuic$v_memberJ, .status) 
289 23 else 
$50 $3 sits 
$536 P 23 status = $mod_ident ( id = .ident, 
$537 $3 new_name = new_name_desc ) ; 
2295 $3 if not .status 
$$09 $3 7 LIBSSIGNAL(UAF$_RDBMDFYERR, 1, old_name_desc, .status) 
else 
298 $3 begin 
$20 23 rizeret iss modified = true ; 
00 23 LIBSSIGNALTUAF$_RDBMDFYMSG, 1, old_name_desc); 
$5) $3 ‘ end ; 
end ; 
308 3 end ; 
308 5 end; 
307 : Reset flags 
309 rename_ph2 = false: 
319 uaf$gl_ctlmskCuaf$v_rename] = false; 
$312 3 end; 


M 16 
UAFMAIN 16-Sep-1984 16:54 VAX=-11 Bliss-32 V4.0-74 4 
¥06~000 rename_uaf - rename user record 12786871388 96:39:33 DISKSVMSMASTER: CUAF .SRC UAFMAIN.B32: 109° (103, 
007¢ sENTRY RENAME_UAF, Save R2,R3,R4,R5,R6 : 2287. 
§ 0 000' 3 09 MOVAB NEWUSERLEN, R6 : . 
Pa tdittditad 3E 0001 ROVAB  UAFSGC_CTLMSK, RG : 
3 000000006 0 9E 0001 MOVAB LIBSSIGNAL, R$ : 
E § 0 1E SUBL2 #48, SP : 
64 1 1 BISB2 #1, UAFSGL_CTLMSK + 232 
FAQS CF 0 FB 0024 CALLS #0, COPY_UAF : 232 
29 E9 00029 BLBC ~=._«aRO,. 2$ : 
FE96 =F 0 FB 0002C CALLS #0, REMOVE_UAF : 233 
000000006 8F DD 00031 PUSHL #UAF$_RENMS : 233 
63 1 FB 00 7 CALLS #1 LTBSS1GNAL : 
9 06F4 C4 E9 OO03A LBC PWO_FLAG, 1$ : 233 
000000006 8F DD 0003F PUSHL #UAFS DEFPWD : 233 
63 1 FB 00045 CALLS #1, LYBSSIGNAL : 
00000000' 00 9F 00048 1$ PUSHAB SD_MODIFY_IDENTIFIER > 234 
000000006 00 gi FB OO04E CALLS #1, CLISPRESENT : 
60 0 €9 0 55 2$ BLBC ~=_- RO, 3 : 
5¢ 70 Ad E9 00058 BLBC RDB EXISTS, 3$ > 2345 
08 AE 010E0000 8F 00 0005c MOVL  #17894720, OLD_NAME_DESC + 2351. 
C AE D4 00064 CLRL OLD NAME BESC+% ; 
6E 010E0000 8F 00 00067 MOVL  #17694720, NEW_NAME_DESC > 2352. 
04 AE D4 Bode CLRL NGY_NAME DESC +E 3 
08 AE 20 BO 00071 MOVW #327 OLD-NAME_DESC : 235 
OC AE 10 AE 9E 00075 MOVAB OLD_NAME-BUFF, OLD_NAME_DESC+4 : 235 
6E 66 BO 0007A MOVW § NEWOSERLEN, NEW NAPE DESC > 235 
04 AE 04 Ad 9E 0007D MOVAB NEWUSERNAME . NEQ_NAME_DESC+4 : 235 
000000006 00 00 FB 00082 CALLS #0, UAFSFINO_UIC > 235 
7E 7C 00089 CLRO 0—_- = (§P) : 236 
7E D4 00088 CLRL = = (SP) ; 
14 AE 9F 0008D PUSHAB OLD_NAME_DESC : 
18 AE OF 99090 PUSHAB OLD"NAME DESC ; 
65 DD 0009 PUSHL IDENT ; | 
000000006 00 06 FB 00095 CALLS #6, SYSSIDTOASC ; | 
52 50 pO 0009C MOVL RO, STATUS : | 
18 52 «€8 9009F BL STATUS, 4$ + 2367) 
52 BD OO0A2 PUSHL STATUS > 2370 
7E 65 3C 000A4 MOVZWL IDENT, =(SP) : 
7E 02 AS OE 00 EF 000A7 EXTZV. #0, #14, IDENT+2, -(SP) : 2369. 
02 DD OOOAD PUSHL # : 2368 | 
000000006 8F DD OOOAF PUSHL #UAF$_RDBMDF YERRU : 
63 05 FB 000B5 CALLS #5, LIBS$SIGNAL ; 
3A 11 00088 3$: BRB 3 ; 
7E D4 OOOBA 4$: CLRL = (SP) > 2375 
04 AE 9F 000BC PUSHAB NEW_NAME_DESC ; 
ze C 000BF CLRQ = = (SP) : 
65 DD 000C1 PUSHL DENT ; 
000000006 0 05 FB 000C3 CALLS #5, SYS$MOD_IDENT F 
5 50 DO OOOCA MOVL RO, STATUS : 
1 3g E8 000CD STATUS, 5$ : 3377 
DD 0 D PUSHL $T : 2378. 
0c AE 9F 000D PUSHAB OLD_NAME_DESC : | 
1 DD 0000 PUSHL #1 ; 
000000006 8F DD 000D PUSHL #UAF$_RDBMDFYERR : 
63 4 FB DD CALLS #4, LIBSSIGNAL 3 
12 11 S0E9 BRB : | 
78 AG 01 90 O00E2 S$: MOVB #1, RIGHTSLIST_MODIFIED > 2381. 


UAF MAIN 1b-se Sep-1 VAX=-11 Bliss-32 V 85 
Vv04-000 rename_uaf - rename user record 1 300-138 9§: 39: 33 DISKSVMSMASTER: CAE. OsRC UAFMAIN.B32; 914) 
08 AE OF 33 PUSHAB OLD NAME DESC ; 2382 

1 OD E PUSHL # : 

00000000G 8F DD Ep PUSHL #UAFS$_RDBMDF YMSG 3 

63 3 FB QOOF CALLS #3, LIBSSIGNAL : 
D8 A6 94 QOOFS 68: CLRB RENAME _PH ; 2391 
64 01 8A 0OOF7 * BICB2 #1, UAFSGL_CTLMSK 3 2392 
04 OOOFA RET i 2394 


; Routine Size: 251 bytes, Routine Base: S$CODE$ + OC8C 


BeBe Se Se Se Se Ge Fe Se Ge Se Se Se Se Se Se Fe Se Se Se Se Se Ge Se Ge Se Se Se Se Se Se Se Se Se Ge Os Se Os Oe Se SE Se Se Os Se Se Os Oe OSs Se Oe Bs Bees Bees 


PROPIPIPIPIPIPIPYNIPOPIPYPIPINIPNONININPIPONINPOPIPIPIRINOPPO PPO POPoNoNnonony 


vant 


WALA ANIANAWw 


WAU NAIA PIP NIPINININININ 3 2 SS SS 


AR UNIO WOo On RORY Oo DOWIE 


WANA 
Ww 


WN O OOVNOUE WN" OVOONOU SW —O0OOn 


SRERAAAMAAAAAAR EEE EER 


SSSSSSE 


adjust_proxy - implicitly remove/update proxy r 1b-se 308-1382 96 38: 33 DISK 


TOPIPOPIMPOPININONYNONNO PUNINONUNONoOPONTy 


Ft ek eh tke kkk ek ek eh kk ee ae ee et et et et et et et tt 


ane 


RoR oR onoRonononononononononononononononononononuny 
a 
- WAN 
WN 0 DONA HEWN OOM NAUEWN OOO NOUER 


PPS AS SS 
~~ —§ ~DOODOOO000000 
WI OOBDVNAAEWN—OOoo 


WIAA AAI ofonononononony 2 a 


| 
| 


SN 


$-32 V4.0-74 


-11 8 
$VMen TER: CUAF..SRCJUAFMAIN.B32; ; 


Isbttl adjust. proxy = implicitly remove/update proxy record’ 
no routine “tdlust Proxy (remove) : novalue = 


144 
' 


FUNCTIONAL DESCRIPTION: 


This routine performs the operations implicitly roere eres by 
REMOVE or RENAME operations on SYSUAF.DAT. If a UAF .DAT 
recerd is removed, then gan) F corresponding NETUAF. BAT pe must 
also be deleted. If a DAT record is renamed, then any 
corresponding NETUAF. bat “‘Seapiie must be updated. 


' 

' 

' 

' 

! 

! 

INPUTS: 

! remove - a flag which indicates that the NETUAF.DAT record 
! should be removed. If false, then the record 
should be updated. 

| OUTPUTS: 
none 
IMPLICIT INPUTS: 
i olduserlen = the old username length for a RENAME 

' oldusername - the old username string for a RENAME 

! TOKENPTR = the new username cer, RENA E. the removed username for REMOVE 
TOKENLEN = Length Length ‘ 

IMPLICIT OUTPUTS: 

none 

SIDE EFFECTS: 

' 

1 

' 


A record is removed/updated in NETUAF.DAT 


modified: initial(false), 
status; 

' 
i Set access to sequential because we need to check for 
' multiple entries 


nafrabCrab$l -rop} = rabSm_rlk; 
nafrablrab$b_rac] = pabsc_ seq; 
$rewind (rab°= nafrab) 


! Lock records for writing 


i until EOF... 
while status = get_proxy_record () 


— 


29° (185 


) 
YOs~000 adjust_proxy = implicitly remove/update proxy r 128 to-19t ¢: 38: 33 5 e UAE SRCSUAFMAIN.B32:1° 7" (185 


: 2371 4 § do 

; 257 & begin 

: 7 454 local 

: 74 455 lLocuser_Len, 

: 2575 4 blank_ptr; 

: 237 45 

3 esr 458 } 

: 78 459 ! Find end of user name... 

3; 2579 460 ! 

; 2380 461 ! 

: 2381 re ! If not found in 12 gherecters. it must be the full le 

3 : to? characters in Lengt : 

> 2384 465 if ch$fail (blank_ptr = ch$find_ch (naf$s teateeste: 

: He re netbuf(naf$t:localuser], ' ')) 
5 387 rh ~ Locuser. Len = naf$s_localuser 

; 2389 470 *Locuser.. len = .blank_ptr - netbuf(Cnaf$t_localuser); 
: 2390 471 

: 2391 or§ ! 

3 4 47 ! If this is a record to be removed, delete it 

: 9 474 ! 

: 2394 475 3 .remove 

: 2395 ore en 

: 2396 477 4 begin 

3 2397 478 4 if .tokenlen eql .locuser_len 

; 2398 ot 4 and ch$eql (. tokenlen, -tokenptr, .locuser_len, netbuf(naf$t_localuser]) 
: 2399 480 4 ene, 

3; 2400 tt begin 

: 2401 rh netuaf_modified = Srp: 

3; 240 48 $deletée (rab = nafrab): 

; 240 484 5 security_audit (nsa$k _recid _netuaf_del); 

> 2404 485 4 end; 

3; 2405 486 4 end 

: 2406 487 4! 

3 2407 488 4 ! otherwise, change the localusername field to reflect the 
: 2408 489 4 ! new username in SYSUAF.DAT 

3; 2409 490 4! 

: 2410 491 3 wise 

3: 2411 492 4 begin 

$ tig 493 4 ified = true; 

: 241 494 & if son eyeerten ¢ L .locuser_Len 

s 26414 495 4 and ch$eql ( ‘al userlen, oldusername 

3: 2415 he 4 . locuser_ len, netbufCnaf$t_ localuser]) 
‘eRe ee Pa 

: 2618 499 4+ hn tuotte username, recbuf(Cuaf$t_username],' ', 
3: 2419 5 $s_ ~logaluser, netbuf(naf$t_ localuserd); 
: 2420 501 Supdate crab ="naf 

: 2421 5 ¢ netuaf_modified = tee 

3 ° § 5 ? ini audit (nsask *recid _netuaf_mod, oldusername) ; 
3: 24246 3 5 

: 2625 : 

: 24 $ 

: 26 508 ‘if .modified then 


} 
ep A } 32 V4.0-74 p 
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Sep-1984 VAX=-11 Bliss-32 V4.0-74 Pa 8 
adjust proxy = implicitly remove/update proxy r “520-19 96: 38 33 DI SKSVMSMASTERSCUAE SRCTUAFMAIN. B32: 1 oe 8 


: ? 8 19 LIBSSIGNAL(UAF$_ZZPRACREN, 2, .olduserlen, oldusername); 
: 2430 1 

; : 1 \§ } Return to keyed access 

: 24 : 14 2 nafrabCrab$b_rac] = rab$c_key; 

3 2634 15 end; 


~EXTRN SYSSREWIND 


07FC 00000 »ENTRY st jhe PROXY, Save R2,R3,R4,R5,R6,R7,RB,R9,-; 2396 


A 00000000v E 0 MOVAB SECURITY_AUDIT, R10 : 
39 titdaittch E 0 MOVAB OLDUSERNAME, R9 : 
8 00000000' 0 9 0 HOVAB NETBUF +64, RB pe 
6C A8 00080000 &F b0 0019 MOVL WS 288, NAFRAB+4 + 2444 
ce 33 
000000006 00 1 FB 90 8 CALLS #1, SYS$REWIND ; 
00000000v 00 F F 1$: CALLS #0. GET_PROXY_RECORD + 2451 
85 a7 Pe 80 ces eee 
0081 31 0003c BRW Be ; 
68 20 A 00 F 2%: LOCC #32, #32, NETBUF +64 + 2466 
2 043 BNEQ 3$ : 
D4 0004 CLRL RI : 
1 D5 00047 3$: TSTL | BLANK_PTR : 
5 12 00049 BNEG : 
50 0 DO 00048 MOVL #32, LOCUSER_LEN : 2468 
7 11 0004 BRB ; 
2 68 9 005 4$: MOV NETBUF $64, R2 + 2470 
50 1 C3 00 SUBL BLANK PTR, LOCUSER_LEN ; 
0 04 A : 09 5$: BLBC = REMOV : 2478 
1 FAIC : C 00058 MOVZWL TOKENLEN RI : 
50 D1 0 CMPL -R1, LOCUSER_LEN ; 
CA is BNEQ 3 
52 FA20 c8 p 06 MOVL TOKENPIR, R : 2479 
50 00 b 31 D : CMPCS , (R2), #0, LOCUSER_LEN, NETBUF +64 : 
D 1 BNEQ 18 : 
Fe OAD 8 06 0 7 VL NETUAF_MODIF IED : 483 
68 AB OF 7 PUSHAB RAF RAS : 26 
000000006 00 FB CALLS YSSDELETE ; 
00020003 8F DD PUSHL +141 > 2484 
6A 01 Fe ; CALLS is SECURITY AUDIT Pas 
t 01 06 $F: MOVL MOD DIF IED. ; 348 
1 FC OAD OD MOVL pte LEN > 2494 
0 t cHPL LOCUSER tin : 
50 00 69 . D t CMPCS a. OLDUSERNAME, #0, LOCUSER_LEN, NETBUF +64 ; 2496 
1 90 BNEQ 1 3 
68 FAGO CB 20 § 9F MOVC3 he, RECBUF +4, NETBUF +64 > 2500 


UAF RAIN 
vO4u-000 


; Routine Size: 


16-Sep-1984 02:16:54 VAX-11 Bliss-32 V4. e 89 
adjust_proxy = implicitly remove/update proxy r 16> ety 7 96:39:38 DISKSVMSMASTER: CUAF . OSRCSUAFMAIN. B32;1 fa0 RLS 


68 Ag 9 oF as PUSHAB NAFRAB : 2501 

000000006 09 FB A CALLS i. SYSSUPDATE ; 
ae 1D A MOVL #1, NETUAF_MODIFIED ; 3508 

soosooos af 3 PONS Rus : 8 

A é FB PB CALLS #2, SECURITY_AUDIT ; 
1 B BRB + 2451 
14 5 £9 i 8$ BBC " DIFIED, 9$ ; 308 

FC a9 DD c PUSHL OL DUSERLEN : 

000000006 8F DD CA PUSH hats ZZPRACREN : 

000099906 09 4 FB 09 CALL T ; 
e 38 1 3? of 9$: Bove #1, NAFRABS 30 ; g2i6 


221 bytes, Routine Base: $CODE$ + 0D87 


1 
UAFMAIN 1B-se 1984 02:16:54 VAX=-11 Bliss-32 V4.0-74 Page 90 
y0e-000 default_uaf - change default record 1 ~300 71 38% 96:39:35 DL SKSVMSMASTERSCUAF SRC SUAFMAIN. 83251 ° (16) 


; 24 16 1 Xsbttl detqult uaf = change default record’ : 
; 24 us global routine default_uaf : novalue = : 
; r 8 18 egin ; 
ie yi : 
: 44 ‘ | FUNCTIONAL DESCRIPTION: 3 
: 44d 4 Change a default value in the default record. : 
<23 8 INPUTS: 
$ tts 3 none : 
: 430 0 IMPLICIT INPUTS: ; 
> 245 5 i none 3 
'; rk a : i ; 
; tee é : OUTPUTS: : 
ie Ge Be gp | 
> 2458 $38 2 | IMPLICIT OUTPUTS: : 
3 2459 539 ! : 
ot ihe : 
3 246 242 2 | ROUTINE VALUE: 
3; 246 54 ! : 
is Ba ho : 
> 2466 246 i SIDE EFFECTS: ; 
3; 2467 54 ! : 
3; 2468 548 ! none : 
3; 2470 550 ; 
$07 33) 5 
; 47 23 i Locate default record and load it into RECBUF ; 
; rth eee if sot already there (via an indirect MODIFY DEFAULT) : 
: 267 55 : 
: 247 328 if not .mod_default : 
: t 326 ~— egin : 
> 26 325 R7Pnot locate_user (.defuser<0,8>, defuser+1, true) : 
$ rs 1 6 t enon ' : 
5 egin : 
3; 24 5 8 4 L1BSSIGNAL (UAFS_DEFERR, 0, .rmserr); ; 
: 24 64 4 return; : 
: 2485 65 end; : 
: rs 66 , end; : 
: 26 28 i The encrypted password field of the DEFAULT record can not be propagated : 
3: 2489 § ' to qrother user, sec ques the encryption a por thm tokes the user name as : 
3 rt 4 an input. The user is merely warned that this qualifier has no effect. : 
: 3492 at Be : 


H 1 
UAFMAIN 16-Sep-1984 02:16: VAX=11 Bliss-32 V4.0-74 Page 91 U 
VO4-000 default_uaf = change default record 1 =Sep- 38 96:39:33 DL SKSVMSMASTERSLUAF SRC SUAFMAIN. B32: 9°16) Vv 
ti 73 pwd_flag = true; 


' 
Update values supplied and exit if errors. 


oOo 
oo 


if update_record () 
then 


begin 
{font 


3 fe : 
: 7 ; 
3 3 : 
; 24 7? ; 
3 2499 7 3 
; 2500 : 
: $203 at d_fl 
3 -pw a 5 
; 08 5 ‘ then LIBSSIGNAL (UAF$_NODEF PWD); : 
: $20¢ ease ; 
; 209 288 ; Now write the modified record back into the DEFAULT_RECORD buffer. ; 
: 208 eee default_size = ,uafrabCrab$w_rsz]; : 
3 316 282 ch$move (.default_size, recbuf, default_record); : 
> 2511 591 3! : 
3 2\¢ 236 : Update the default record in the file. Note that file has changed. : 
3: 2514 594 4 if not rmsok ($update (rab = uafrab)) 3 
3; 2515 595 then 3 
; 218 238 LIBSSIGNAL(UAFS_MDFYERR, 0, .rmserr) : 
3; 251 59 else 3 
3; 2518 598 4 begin 3 
: 2519 599 4 modify_flag = true; ; 
: 2520 600 4 security_audit (nsa$k_recid_sysuaf_mod); 3 
3 2521 601 4 if not .mod_default : 
; 25 ¢ 602 4 then 3 
3; 25 603 4 LIBSSIGNAL (UAF $_MDF YMSG) : 
3; 2524 604 4 se 3 
3; 2525 605 4 mod_default = false; 3 
3s 23 $ one end; 3 
3; 25 60 end 3 
3: 2528 608 3 
3; 2529 609 else ; 
; H : oi9 $Srelease (rab = uafrab); ' unlock the record : 
3; 2532 612 end; : 


O1FC ENTRY DEFAULT UAF, Save R2,R3,R4,R5,R6.R7.R6 ; 2517 

0 Be RVs etaDea My : 
g es 17 BLBs ROD. DEFAULT, 18 2557 

90000000" oF 1 PUSHAB DEFUSER+1 ; 

43 y A MOVZBL DEFUSER, -(SP) ; 

00000000v 90 FB CALLS i. LOCATE _USER 
DD PUSHL RMSERR : 2563 

—E D CLRL. = SP) ; 
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v04-0 default_uaf = change default record : 30071382 98: 3: 33 DISKSVMSMASTER:CUAF. SRC UAFMAIN.B32; ia 9 485 


000000006 th bp i PUSHL ‘ AF $_DEFERR ; 
d0 F 1$ MOVL , , PWD_FLAG + 2573 
000098806 i" a i a CALLS PDATE_RECORD : $278 
6 4 BLBS RO. § : 25 
: 000098806 BF DD i PUSH A ink ThobeF Pup : $286 
0458 C 61 Cg 6 § 2s: MOVW sb DEFAULTS IZE + 2588 
045C (7 08 A6 43 ¢ : MOVES i AULT. S{ZE, RECBOF, DEFAULT_RECORD : 389 
000000006 09 ; F i CALLS #1, SYSSUPDATE : 
6 ; D 7 MOVL RO; RMSERR ; 
OE E 7A BLBS ; 
$6 DD 0007D PUSHL RMSERR + 2596 
E D4 O007F CLRL ; 
000000006 BF DD 1 PUSHL mars MDFYERR : 
68 3 FB ? 3$ CALLS LIBS$SIGNAL ; 
04 a7 1 00 B 4$ MOVL #1, MODIFY_FLAG : 2599 
00030002 8F DD BF PUSHL #1966 + 2600 
00000000v 00 1 FB 5 CALLS #1 SECURITY AUDIT ; 
A 7 €£ 9C BLBS § MOD_DEFAULT, ~5$ + 2601 
000000006 8F ODD 0 OF PUSHL HUAFS 8 MDTYM nic : 2603 
3) 1 FB OOOAS CALLS ATP TBSSIGWAL : 
04 00 ‘e RET 5 
67 04 0009 5$ CLRL  MOD_DEFAULT > 2605 
4 OOOAB RET : 2579 
OSFO C6 9F OOOAC 6S: PUSHAB UAFRAB + 2610 
000000006 00 01 FB 9080 CALLS #1, SYSSRELEASE ; 
04 0008 RET + 2612 


; Routine Size: 184 bytes, Routine Base: S$CODE$ + 0E64 


1 


' 
; Set action routine and rab pointer 


AAA 


wild _netuser = true; 
match_tokenlen = 1; 
§ match_token = ic'®'; 


reset? = nistrab; 
664 action = display_proxy; 


5 header flag = true; 
nafrabCrab$l_rop) = rab$m_rrl or rab$m_nlk; 
8 ¢ LIBSSIGNAL (UAFS_LSTMSG1); 


UAF MAIN tbese 1984 7:16:54 VAX-11 Bliss-32 V4.0-74 P 3 

¥04-000 List_proxy = List proxy entries in NETUAF.LIS 1 ~3007 138% 9¢:30:34 DLSKSVMEMASTERSCUAR SRC SUAFMAIN.B32;1° 7° (175 

5 13° 1 Xsbttl ‘lList_proxy = List proxy entries in NETUAF.LIS' 3 
3 5 gia 1 glo al rout ie List proxy ; nowalue = 3 
; oF egin : 
1) ee ae : 
i 2540 e19 2 | FUNCTIONAL DESCRIPTION: 3 
; ri} 621 i This routine produces a Listing of the entire NETUAF.DAT file ; 
3 et? 2 § in NETUAF.LIS. : 
; i 6 4 i INPUTS: 
: see 8g | aye 
> 2549 628 2 | OUTPUTS: : 
; 2550 629 ! 3 
: 22) ° 9 none 
338 63¢ ¢ | SIDE EFFECTS: ; 
: 2555 634 i A listing file is produced : 
: 228 635 ! 5 
3; 255 6 : bee ; 
3; 2558 6 ; 
3 2559 638 local 3 
; 2560 639 action; 3 
: $86) ee) 5 
: 568 648 Make sure NETUAF.DAT exists 3 
: 2565 644 if not .netuaf_exists : 
3 208 645 then return LIBS$SIGNAL (UAF$_NAFDNE); j 
t $3¢e ee? 5 
; 569 648 Set up the Listing file FAB and connect RAB ; 
: 5871 650 2 nlstfabCfab$v_dit) = false; ; 
: Le: 651 f rmsbad ($create (fab = nistfab)) 3 
; 7 636 then return LIBSSIGNAL(UAFS_LSTERR, 0, .rmserr); : 
: 2575 54 if rmsbad ($connect (rab = nlstrab)) ; 
; 6 56 then return LIBSSIGNAL(UAFS_LSTERR, 0, .rmserr); : 
: 957 ; 
: if : 


PUPP PVP PVPV DPV PVPS SUIS SIS 
SSSLEREAN= 
2 So 
Ww 


VOu~000 List proxy = List proxy entries in NETUAF.LIS 16: sen 1944 9¢: 38: 33 brsk tneh He ERSCUARS SRCIUAFMAIN. B32; "? 9 43 


; 2591 7 ! 

: 35 ef LOCATE PROXY will call the action routine for each proxy record 
: 2594 67 if rmsbad (locate_proxy (.action)) 

: 5595 674 > then atthe 

: $298 ore begin L rms$_rnt 

3 ermserr eql rms$_rn 

; 2600 ore se Me 

3; 2601 680 LIBSSIGNAL(UAFS_LSTERR, 0, .rmserr); 
$ o0¢ 681 nd 

: 26 6 ¢ else 

3 2604 6 LIBSSIGNAL (UAF$_NETLSTMSG) ; 

; 2605 684 

3; 2606 685 ' 

3; 2607 686 Disconnect RAB and close FAB 

; 2608 687 

3; 2609 688 ES (rab = nlstrab); 

: 2610 689 $close (fab = nlstfab); 

3; 2611 $o2y 

3; 2612 691 1 end; 


~-EXTRN SYSSDISCONNECT, SYSS$CLOSE 


007C 00000 eENTRY LIST prone Save R2,R3,R4,R5,R6 3 2614 
56 000000006 8F 00 00002 MOVL #UAFS_LSTERR : 
32 900000006 00 3E 00009 ROVAB LIBSSTGNAL. “AS : 
24 0 0 9£ 9010 MOVAB NLSTRAB, ro ; 
3 0000 09° 9 44 901 MOVAB RMSERR, R3 F 
OA F8 =A3S EB 0001 BLBS NE TUAF “EXISTS, 1$ > 2644 
000000006 af DD 000 PUSHL HUAFS $_RAFDNE + 2645 
65 1 fe BR 5 3 # LIBSSIGNAL $ 
BS AG 80 8F Bh 002C 1$: BICB2 #128, NLSTFAB+S ; 3650 
BO AG OF 1 PUSHAB NLSTFAB > 2651 
000000006 09 1 F CALLS #1, SYSSCREATE ; 
6 6 D 8 MOVL RO, RMSERR ; 
OF E E LBC ~—s-«aRO,. 2S ; 
4 DD 00041 PUSHL R4 > 2654 
000000006 09 ee 43 CALLS #1, SYSSCONNECT ; 
D 4A MOVL RO; RMSERR ; 
é 4 3$ ; 
: DD 28: PUSHL RMSERR + 2655 
D4 (SP) : 
; DD PUSHL Re ; 
6 FB § CALLS #3, LIBSSIGNAL F 
EO A 1 0 A 3%: MOVL at, WILD_NETUSER > 2660 
DC OA 1 0 MOVL mATCR, TOKENLEN > 2661 
2 A A MOVL fas MA TOKEN ; 66¢ 
A 4 9% MOVAB Stans. Cae R > 266 
ies 5 00000000v : 3 A HOVAB DISPLAY PROXY ACTION ; 664 
0638 C3 00100008 8F D 76 MOVL TiOakeee AAFRAB+s : $082 


00000000v e3 


; Routine Size: 


5 000000006 8F 


F 


er 


ION 


000000006 BF 


65 
; 000000006 


o 
wo 
oO 
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Base: $CODES + OF 


FB 
DD 
F 

D 

E 

D 

D 

t 
11 
DD 
D4 
44 
i 
DD 
FB 
DD 
FB 
oF 
FB 
04 
ic 


Sep-1986 §S:28 82 


PRAM 


VAX-11 Bliss 
DISKSVMSMASTER: 
#UAFS_LSTMSG1 
a LTBS$SIGNAL 
ACTION 
#1, LOCATE_PROXY 
RO, RMSERR 
RO, 5$ 
RMSERR, RO 
RO. #98994 


TAPS _SAOEPE 
6 


RO 

=(SP) 

, 

#3, LIBSSIGNAL 


BUAFS NETLSTMSG 
#1, LIBSSIGNAL 


4 SYSSDISCONNECT 
#1, SYSSCLOSE 


4 
CUAF . SRC JUAFMAIN.B32; 


Se Se Se Be Be Ge Se Be Ge Se Se Be Se Se Se Fe Ge Fe Ge Ge Ge Be Be 
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List_uaf = List file routine 


3 
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SS I BOQ OD 000 
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M4 

1er8eei 138s 98:39:33 «| Ms iwGmaSte 
1 Xsbttl teh ual - List file routine’ 

1 global routine List_uaf : novalue = 

egin 


lee 
1 
FUNCTIONAL DESCRIPTION: 
Display the specified users in a file named ‘SYSUAF.LIS'. 
INPUTS: 


i 
i 
i 
i 
i 
i 
none 
| IMPLICIT INPUTS: 
| none 
| OUTPUTS: 
none 
| IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
| none 
SIDE EFFECTS: 
none 
local 
action; 


Obtain the user specification. This sets wildcard flags and initializes 
the appropriate key in RECBUF. 


if not parse_wild (sd_token!,true) 


! Null string defaults to * 
then return; 


1 
: Obtain qualifiers. This determines which display should be used. 


full flag = false; 
brie?_flag = true; 


if cli$present (sd_full) or (not cliSpresent (sd_brief)) 
en 


begin 
brief_flag = false; 
full_Tlag = true; 


2.V4.0=74 
: CUAF..SRCJUAFMAIN.B32; 
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v04-000 List_uaf - List file routine 1228 Sep 1382 96:39:33 DISKSVMSMASTER: CUAF .SRC JUAFMAIN.B32; 39 

: 2671 749 end; ; 
; ore 7 9 3 
: 267 7 ! ; 
; 2674 7 ' Create the Listing file. ; 
Be Bat BS | 
: 2677 755 bat fabl tebsy., dit] = false; ! initialize DLT bit 3 
; 2678 7 § rmsbad ($treate (fab = Lstfab)) 3 
3 4 f then return LIB$S1GNAL (UAF FS_LSTERR, 0, -rmserr); : 
; 2681 7 5 if rmsbad ($connect (rab = Lstrab)) 3 
3 ORs 76 then return LIBSSIGNAL(UAFS_LSTERR, 0, .rmserr); : 
; 26 761 ; 
: 2684 166 ! 5 
3 red pe Request a header record for the file and aim RABPTR at our RAB. : 
; ry 765 ; 
; 2688 76 header_flag = true; : 
3; 2689 76 rabptr'= ke : 
; 2690 768 found_match = 3 
3 4 a4 yatraBlrabst_ Pain’ . * pabSm_ rrl or rab$m_nlk; ; 
; oe7 rr) | Flag the List operation for the rights data base routines . : 
3; 2695 re rdb_list_flag = true ; ; 
3; 2696 774 3 
; 35 ae Ch th iate displ 
3 ! Choose the appropriate display. ; 
3; 2699 5S ! 3 
: 2700 778 ; 
3; 2701 779 action = display_brief; F 
3; 270 780 if .full_flag ; 
3 At r 1 then actTon = display_full; : 
3 Ait , : LIBSSIGNAL (UAFS$_LSTMSG1); ! announce starting : 
: 2707 785 3 if rmsbad (wild_user (.action)) ; 
3; 2708 7 $ then 3 
3; 2709 7 begin : 
3; 2710 7 3 if .rmserr eql rms$_rnf : 
3: 2711 7 then F 
; ng a LIBSSIGNAL (UAF$_BADSPC) ; 
; 2714 79 Ll Pietge atta 2 LSTERR, 0, rmserr); 3 
3; 2715 79 istfablfab$v_dit] = "true; ! press delete button 3 
: rg 794 end ; 
3; 271 795 else 3 
; ay | P36 LIBSSIGNAL (UAF$_LSTMSG2) ; : 
3; e771 7% ; 
3 169 ree $disconnect (rab = Ilstrab); 3 
3; 2721 7 $c Lose (fab = lstfab); : 


: 216: - =32 V4.0-74 Page 98 
vias 18-60-1984 93:39:33 UNScbimGhAS FERS CURE seCSuarmain.03254°%° «1s 
v04-000 List_uaf = List file routine ; ae 

orFe 0 LENTRY LIST UAE Save R2,R3,R4,R5,R6,R7,R 
G 8F 6 MOVL SALSTERR, ; 
{ Sessssese fe Ge diite == Foti CLiaPaESeAT, : 
MOVAB LIBSSIGNAL, ; 
§ E 800] RR, RG : 
i E If MOVAB RMSERR, Ré 
3 ' E MOVAB LSTRAB, 1 ome 
[Bie | Be 7 
DD 
#2, PARSE_WILD ; 
el) eee g 
FEO8 3 01 i § 8 1S: MOVG #1, BRIEF FLAG i 3742 
ee 1 ae oe yen : 
ee a ee : 
67 “ Of Pe Spee CALLS #1, GLISPRESENT ; 
09 59 EB oooGr BLBS RO: 35 2 2 ona 
we ER Se Re he i 3748 
ag G 80 i bh 0058 3$: B1C62 #128, LSTFABSS i 3799 
000000006 00 - o} FB a CALLS a, SYSSCREATE ; 
SF 6 P9 $09 D BLBC ~—s- RO. toms 
a a ae er : 
oe 9? 95 6 ita MOVL RO. RMSERR ; 
ROU R «OB Be tam 
E D4 2908 : CLRL. = =(SP) ; 
PUSHL R 
RABE BAW ince : 
5 $088 5$: mOVL ot HEADER_FLAG 2766 
sg 4 3 4 OO8E ; MOVAB LSRAB. RABPTR i 3767 
4 00100058 ' OS $96 nove WdcB5B4, UAFRAB+4 ; 769 
000000006 1 90 009 MOVE a RDB_CIST FLAG : 3078 
00000000v 9 Ab MOVAB DISPLAYBRIEF, : 3108 
F : 5 O00 BLBC FULL FLAG, ae : 3780 
2 REY AP HS og, Ree SP ti HB 
meee iS am ee tame 
00 f aetit CALLS #1, WILD_USER ; 
seetentnte 4 D CB MOVL RO. RMSERR 
? § E C BLBS ‘ 9$ se Sees 
0 4 0 D MOVL RM ERR, RO ; 
0D D4 CMPL = RO, #9 
00018282 &F cHPL = 
e Os BD PUSHL AF$_BADSPC : 
5 vareeenee 1 PB OOO CALLS we LTB$SIGNAL ; 
5 it 3 7$: PUSHL Hf 2792 
E v4 EA CLRL. = = (SP) F 


UAFMAIN 


v04-000 List_uaf - List file routine 


DD 

63 : F 

BS A 80 4 ; 
00000000G 8F oD 
, $ 5b 
000000006 00 1 FB 
BO Ad OF 
000000006 00 01 fe 


; Routine Size: 277 bytes, Routine Base: SCODES + OFEF 


—COOOO™=—=--AMmmM 


Oo rw MOonnm.oFH ll 


st 


—- oo @ 
oOo 


Sep-1 
Sep-1 


ow 


Be 19:24:23 


ie 


i 


IBSSIGN ~~ 
LSTFAB+ 
LSTMSG2 

° AS bss TONAL 
SYSSDISCONNECT 


#1, SYSSCLOSE 


32 V4, 
R: 


CUAF. OsRe UAFMAIN.B32; ? 


— 


aa 


ag3 
83 


2798 
2799 
2800 
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1 global routine show_user_uaf 
eg 
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show _user_uaf = display user record 


2 


1$-$e0-1984 9g: 1¢:54 


1 &sbttl ‘show_user_uaf - display user record’ 


: novalue = 
n 


ee 
' 


FUNCTIONAL DESCRIPTION: 
Display the specified users on SYSS$OUTPUT. 


! INPUTS: 


none 
IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
none 
SIDE EFFECTS: 
none 


local 


if not parse_wild (sd_token1, false) 


action; 


Obtain the user specification. 
the appropriate key in RECBUF. 


then return; 


V 
D 


A 
I 


X=11 
SKSVM 


Obtain qualifiers. This determines which display should be used. 


full flag = true; 
brieT_flag = false; 


iy cli$present (sd_brief) or (not cli$present (sd_full)) 
en 


begin 
brief_flag = true; 
full_flag = false; 


Bl 
SM 


iss-32 V4 
ASTER: CUA 


This sets wildcard flags and initializes 


! Null string is disallowed. 
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- 04-0 se show_user_uaf = display user record eet y 96: 38: 33 DISKSVMSMASTER: UAE” she UAFMAIN.B32; (39 


end; 
! 
Request a header record for the file and aim RABPTR at our RAB. 


; : 

3 6 

3 66 

; 8 é4 header_flag = true; 

; 2788 5 rabptr = outrab; 

: 2789 96 found match = false ; 

5 rey of uafrabCrab$l_rop] = rab$mirrl or rab$m_nlk; 
HME 

3 i? 4 Flag the show operation for the rights data base routines . 
3; 2795 ere rdb_list_fiag = false ; 

3 2796 87 

3; 2797 are ' 

3; 2798 75 ! Choose the appropriate display. 

3; 2799 o78 ! 

; 2800 87 

; 2801 143 action = display_full; 

; 280 87 if .or ag 

; 280 880 then ectién = display_brief; 

3; 2804 881 

; 2805 8 ; if rmsbad (wild_user (.action)) 

; ens 8 then 

; 280 884 begin 

; 2808 $ 5 if .rmserr eql rms$_rnf 

3; 2809 Hy] then 

3 2810 88 LIB$SIGNAL (UAF$_BADSPC) 

3; 2811 888 se 

: Bg 889 LIBSSIGNAL(UAF$_SHOW_ERR, 0, .rmserr); 
3; 281 Sees end; 

3; 2814 891 1 end; 
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007¢ 000 .ENTRY SHOW_USER_UAF, Save R2,R3,R4,R5,R6 : 2802 
‘ G 9E 00 MOVAB LIBSSIGN AC, R6 ; 
G E MOVAB Ei SPRESENE R5 ; 
4 ' E 0001 MOVAB SD_T : 
ea : 
E BE 5 CLRL se > 2844 
DD PUSHL R4 : 
000000006 90 ; F CALLS #2, PARSE_WILD ; 
E BLBC “ ; 
04 D MOVL #1. FULL_FLAG + 2850 
b p CLRL BRIEF FLAG > 2851 
20 Ab OOF 9 PUSHAB $D_BRTE > 2853 
65 gi FB C CALLS 4 CL ISPRESENT : 
9 0 f f BLBS _— RO, ; 
2c AG OOF PUSH D’ FULL : 
65 01 re 4 CALLS #17 CLISPRESENT : 
O€ 4 BLBS RO: : 
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; Routine Size: 


175 bytes, 


Routine Base: 


show_user_uaf - display user record 


6 ae 
8H ow HE 
OSF4 C2 0000 F es 

G 4 
"paeuine) EE 

0 00000000v 8 5 

00000000Vv ee 3 4 
i iy 
00018282 = BF $6 ) 
000000006 rf dD 

6 1 FB 

a: 

2 ft 

000000006 Be DD 

am 


SCODES + 1104 


som 
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ovo 


Be $9:29:33 


=> 
bad 
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uw 
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#1, BR 


RO 

-(SP) 

BUAFS SHOW_ERR 
#3, LIBSSIGNAL 


ER: CUAF SRC IUAFMAIN.B32; 1 
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3 16 1 Ssbttl ‘show_proxy - display proxy record at terminal’ > 
; 281 1 gio al routine show_proxy : novalue = : 
3 \8 9 egin : 
; 281 3 
: 2820 9 '+¢ : 
3; 2821 9 ! ; 
3 4 § 4 FUNCTIONAL DESCRIPTION: : 
; 2824 900 : This routine will display a specific proxy record or ; 
3 . é $93 } will display all proxy entries to the user terminal. : 
; ! INPUTS: ; 
3 H 8 $94 ! 3 
3; 2829 905 ! none 3 
3; 28350 90 ! 3 
3: 2831 90 ! OUTPUTS: F 
3 o36 908 { 3 
: 283 909 ! none 3 
3: 2834 910 ! 3 
: 2835 911 ! IMPLICIT INPUTS: : 
>: 2836 at ! 3 
3; 2837 91 ! TOKENLEN, TOKENPTR : 
; 2838 914 ' 3 
3; 2839 915 ! IMPLICIT OUTPUTS: ; 
3; 2840 218 ! 3 
3 2841 91 ! none F 
3 are 918 ! 3 
3; 284 919 ' SIDE EFFECTS: 3 
3: 2844 920 ' 3 
3 2845 921 ! none 3 
3; 2846 9 ¢ ! 3 
3 44 9 ed : 
3; 2848 924 3 
3; 2849 925 local : 
; 2850 926 node_len, : 
3; 2851 927 node_ptr 3 
: B36 928 remuser_(en, : 
3; 285 367 remuser_ptr, 

3 2854 930 action, 

3; 2855 931 counter, 

3 B28 336 success; 

3 He 934 ! 

; 2859 ; 5 ; Make sure that NETUAF.DAT exists 

: 1 9 $ if not .netuaf_exists 

3 ¢ 338 then return LIBSSIGNAL (UAFS$_NAFDNE) ; 

: bse 940 ! 

3 5 be ; Retrieve token 

3 9 38 cli$get_value (sd_token!, tokendsc); 

3 945 header_flag = true; 

3 0 308 

: 71 94 ! 


72 948 i wildcard spec? 


UAFMAIN 


H 2 
16-Sep-1984 02:16:54 V4.0-74 Page 104 
v04-000 show. proxy - display proxy record at terminal 12286871382 96:39:33 D ° UAE SRC SUAFMAIN.B32:1 9¢ 38) 


; 287 949 ' 

: 287 9 6 if ch$find_ch (.tokenlen, .tokenptr, %c'%') neq 
3; 2875 9 or ch$find_ch (.tokenlen, .tokenptr, %c't') neq 
; gfe 9 § then 

3 sf 3 begin 

; 2878 954 wild netuser = true; 

; 2879 955 match_tokenlen = .tokenlen; 

; 2880 228 ch$move (.tokenlen, .tokenptr, match_token); 
; 288) 82 end 

: eee 958 : 

>; 288 959 ! Otherwise, just display a single entry 

3 ¢ 44 : 

; 2885 961 else 

; 28 308 begin 

3; 288 96 wild_netuser = false; 

; 2888 964 if not remote_parse (node_ptr, node_len, remuser_ptr, remuser_len) 
: 2890 392 then return; 

; 2891 96 ch$copy (.node_len, .node_ ptr, ' ', naf$s_node, netbuf(naf$t_node]); 
; 5098 968 ch$copy (;remuser_(len, -remuser_ptr, ' ', 

; 289 969 naf$s_remuser, netbuf(naf$t_remuser]); 
3 2894 970 end; 

; 2895 971 

: 4 97 ! 

3; 289 97 ! Set up action routine and rab pointer 

; 2898 974 ! 

3; 2899 975 rabptr = outrab; 

: 2900 976 action = display _proxy; 

: 2901 977 found match = false; 

; o0¢ 97 nafrabCrab$l_rop) = rab$m_rrl or rab$m_nlk; 

; 290 97 

3 2904 980 ! 

5 eos 4 Make call (s) necessary to display the rquested entry or entries 
3; 2907 383 if rmsbad (locate_proxy (.action)) 

3; 2908 984 then 

3 2909 985 begin 

3; 2910 98 if .rmserr eql rms$_rnf 

3: 2911 98 then 

; aig 988 LIBSSIGNAL (UAF$_BADSPC) 

3; 291 989 else 

3 2914 990 LIBSSIGNAL(UAFS_SHOW_ERR, 0, .rmserr); 

3; 2915 991 end; 

3 2916 992 end; 


; oof aBNTRY SHOW PROXY, Save R2,R3,R4,R5,RO,R7 ; 2893 
ened ce HOVA TOKENDSC, R6 

19 A6b E 1 LBS NETUAF EXISTS, 1$ : 3937 

000000006 _ 8F bp 1 PUSHL  #UAFS$_NAFDNE : 2938 
OOAA 1p Ri : 

56 DD 00020 18: PUSHL 6 > 2943 


; Routine Size: 220 bytes, Routine Base: SCODE$ + 1183 
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UAF MAIN 1b-se "1984 02:16:54  VAX=11 Bliss-32_ V4.0-74 Page 105 
yO6000 show proxy = display proxy record at terminal 1 =3007 1382 96:39:33 DISKSVMSMASTERSCUAF SRCSUAFMAIN.B32:1 ° (20) 
00000000" 9F 00038 PUSHAB $D_TOKEN1 ; ; 
900000006 FB CALLS #7 CLISGET VALUE ; ; 
. p F MOVE #1 HEADER FLAG i 3945 ; 
f MOVZ2WL TOKENLEN, R : 2950 ; 
04 A MOVE —TOKENPIR, ; ; 
63 A 0003p LOCC = #37, R2,(R3) ; ; 
2 0004 BNEG = 28 ; ; 
Dd 4 CLRL R1 : 3 
1 D3 00045 2s TSTL RI ; ; 
C 4 BNEG = 4$ ; ; 
63 52 A 3K 00049 LOCC © #42, R2, (R3) : 2951 ; 
¢ 12 00040 BNEQ = -3$ ; ; 
D4 QO04F CLRL ORI : ; 
1 D5 00051 38 TSTL RI ; 3 
F 4 33 BEQL © 5$ ; ; 
FB AG } 0 00053 4s MOVL #1, WILD NETUSER > 2954 ; 
Fo OA 0059 MOVE, RZ. MATCR TOKENLEN : 2955 ; 
BO AG 6 5 9050 MOVCS R2, (R3),~MATCH_TOKEN : 2956 ; 
29 11 0006 BRBéOOS : 2950 ; 
FB AG De 00064 58 CLRL WILD_NETUSER : 296 ; 
3E Dd 00067 PUSHL_ SP : 2964 ; 
08 AE 9F 00069 PUSHAB REMUSER PTR ; ; 
10 AE 9F 0006C PUSHAB NODE_LER ; : 
18 AE 9F O006F PUSHAB NODE-PTR ; ; 
Fal2 CF Q4 FB 20098 CALLS #4, REMOTE _PARSE 3 : 
20 20 Oc BE 4508 AE 5 007A MOVCS NODE_LEN, @NODE_PTR, #32, #32, NETBUF ; 2967 ; 
20 20 04 BE 6€ 2C 000 MOVCS REMUSER LEN, @REMUSER_PTR, #32, #32, - : 2969 ; 
05¢4 C6 QO8A NE TBUF +3 ; ; 
98 OA O69C C6 9E O008D 6S MOVAB OUTRAB, RABPTR : 2975 ; 
50 00000000v 60 9€ 0009 MOVAB DISPLAY PROXY, ACTION ; 2976 ; 
06E0 C6 D4 0009A CLRL FOUND MATCH ; 2977 ; 
0650 6 00100008 FO 0009 MOVE #1048584, NAFRAB+4 : 2978 : 
common BR Gl ieay ron : : 
¢4 8 es 0084 BLBS ; ; 
0 18 AG DO 00087 MOVL  RMSERR, RO ; 2986 : 
00018282 &F 0 bi 00088 cHPL RO, #98994 ; : 
000000006 8F 0D aoe PUSHL  #UAFS$_BADSPC ; 2988 ; 
67 1 FB QOOCA 78: CALLS AT, LIBSSIGNAL ; 3 
' ; : 
$0 bp OOOCE Bs PUSHL RO ; 2990 ; 
E 04 0000 CLRL = =(SP) : 3 
000000006 BF DD 9000 PUSHL — AUAFS_ SHOW ERR : : 
67 3 £8 0000 CALLS #3, LIBSSIGNAL : ; 
04 00008 9$: ET ; 2992 : 


2 
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; 291 993 1 Xsbttl ‘locate_proxy = access given proxy record (s)' 
; 319 $34 rout ne locate"proxy (action) 2 = 

; 29 begin 

: 2921 99 

: $958 998 5 i 

i 39¢h 999 ¢ | FUNCTIONAL DESCRIPTION: 

; ; $ 001 This routine will call a requested action routine a number of times. 
3 4 8 008 INPUTS: 

: : : 005 | ACTION = the action routine to call for each NEUAF record 
; 4 : 097 | OUTPUTS: 

fe BS 

; 936 O11 | SIDE EFFECTS: 

: 2938 $8 i none 

: 2939 014 ! 

Be BE bie 

; ek O17 local 

: 294 tts status; 

 Soc8 090 3 

; rg 3 1 | If wild user, set acces to sequential and fetch all records 
; 2948 0 é if -wild_netuser 

: 360 6 ¢ tog in 

> 2951 0 § nafrabCrab$b_rac] = rab$c_seq; 

; $326 0 $Srewind (rab = nafrab); 

; oe7 0 : end; 

: 2955 9 0 status = get_proxy_record (); 

5986 o> 5 

3 4 038 Fetch record and call action routine until EOF 

3 2960 5 if .status 

3 38) then (.action) (); 

; 368 0 3 if .wild_netuser 

3 2964 then 

3; 2965 rt begin 

; 4 | while status = get_proxy_record () 

3; 296 § o (.action) (); 

; 3o8 & -Status eql rms$_eof 

: 44 then status = true; 

: 29 9 5 end; 

$95 to 5 5 

; 358 48 i Restore keyed access 

3: 2974 ; 


K 6 
¥04-000 locate_proxy = access given proxy record (s) 12: ce 1386 94 38: 3 TebimghA STERCCUAE she UAFMAIN.B32; 39 
32? 8 9 nafrabCrab$b_rac] = rab$c_key; 


§ if .wild netuser and not .found_match 
? then LIBSSIGNAL (UAF -BADSPC); 

5 

6 


-Status 
d 


. 
° 


001¢ 00000 LOCATE PROXY 


54 00000000 9E 0000 hOVAB Ha a ae R4 
53 itdaitdsh 43 00 MOVAB WILB_NETUSER, R3 
OF 6 01 BLBC WILD NETUSER, 1$ 
0672 C3 94 0001 CLRB =~ NAFRAB+3 
654 9F 0001 PUSHAB NAFRAB 
000000006 00 1 FB 0001 CALLS SYSS$REWIND 
64 FB 00022 1$ CALLS At He PROXY RECORD 
2 D 00 MOVL RO. STATUS 
04 52 £9 00028 BLBC erAToS 
04 BC 00 FB 00 B CALLS #0, @ACTION 
1B 6 E9 O002F as BLBC wit NETUSER, 5$ 
64 0 FB 00 é $ CALLS GET_PROXY_RECORD 
2 20 DO 000 MOVL RO, STATUS 
06 52 £9 00038 BLBC STATUS, 4$ 
04 BC 00 FB 0038 CALLS #0, SR eriON 
F1 11 OO003F BRB bt} 
0001827A 8F 5¢ D1 00041 4$ CMPL STATUS, #98938 
03 12 00048 BNEQ 46s5$ 
5 o4 p 004A MOVL #1, STATUS 
0672 ¢ 1 004D 5$ MOVB 1, NAF 
12 63 £9 0052 BLBC WILD_NETUSER, 6$ 
0D 06E8 f E8 B2 BLBS OUND _MAT 
000000006 8F DD O005A PUSHL HUAFS BADSP¢ 
000000006 90 o4 FB 9060 CALLS LTBSs GNAL 
5 2 p 0067 6$ MOVL ST TAT TUS, 
4 0006A ET 


; Routine Size: 107 bytes, Routine Base: $CODE$ + 128F 


Pete Se Se Se Se Ge Be Be Se Se Se Be Se Se Se Se Be Be Be Se Fe Fe Fe Se Be Be 


UArRA N 1b-s¢ Sep-1984 VAX-11 Bliss-32 V4.0-74 

v04-0 get_proxy_record = read single proxy record 300-138 9¢ 3: 33 DISKSVMSMASTER: CUAF ..SRC JUAFMAIN.B32; y oe 398 
; 2983 1 Xsbttl ‘get_proxy_record = read single proxy record’ ; 
: : é seh: ne get_proxy_record = : 
$389 gy 5 iss 
; 2988 Og ! 3 
: 34 7 FUNCTIONAL DESCRIPTION: : 
5 44 O85 This routine accesses a specific NETUAF.DAT record ; 
3 938 | INPUTS: : 
: 2995 $e i none : 
3; 2996 070 ! 3 
: 444 a OUTPUTS: 3 
: 2999 698 i none ; 
; 3000 074 ' 3 
: bbs Boe SIDE EFFECTS: 3 
; 008 O77 | none : 
; 3608 O79 5 ine : 
; 3006 080 F 
3; 3007 081 local 3 
; 3008 tt counter, 3 
: ‘sh Bar success; : 
; Bi Bae counter = retry_rlk; ; 
: O13 O89 while ((success = $get (rab = nafrab)) eql rms$_rlk) ; 
; bie 43 a and ((counter = .counter - 1) geq 0) : 
; 016 090 if Sschdwk (daytim = wakedelta) then Shiber; ; 
: 3018 09 success ; 
3; 3019 093 1 end; 3 
.EXTRN SYSSGET, SYSSSCHDWK ; 
-EXTRN SYSSHIBER ; 
000C 00000 GET_PROXY RECORD: ; 
.@ORD pave e R2,R3 ; 3058 : 
52 8 go ; MOVL #8, COUNTER ; 3085 3 
00000000' 00 9F 1$: PUSHAB AF RAB : 3087 3 
000000006 9 1 F CALLS SYSSGET 3 3 
9 ”) MOVL thee 3 3 
000182AA BF p iF CMPL vans #58986 ; ; 
1c BNEQ : 3 
? 1 DECL TER ; 3088 3 
1D 19 BLSS 3 : 
43 4 CLAL =(SP) ; 3090 3 
00000000' 9 : ; et tg WAKEDELTA ; : 
000000006 00 Of FB C CALLS #4, SYSSSCHDWK : ; 


M 2 
VOer0 get _proxy_record = read single proxy record 12: $p- 138 96:39:33 DESKSUMGMASTERS CUA SRCSUAFMAIN.B32;1°9° (aos 
000000006 0 Fe ne PACS *. S¥SSHIBER 
50 bd F 2% MOVL SUCCESS, RO ; 3093 
4 00042 RET : 


; Routine Size: 67 bytes, Routine Base: S$CODES + 12FA 
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; 3021 8¢ 1 Xsbttl ‘display_proxy = format and output a proxy entry' 

; 30 § 9 rout ne display_proxy : novalue = 

; 30 38 begin 

+ 3024 9 

; 3025 88 ++ 

; 30 8 09 ! 

; 8 5 : FUNCTIONAL DESCRIPTION: 

3 ° , } § This routine formats and outputs a Line of a NETUAF.DAT entry 
; 3031 104 ! INPUTS: 

; 30 ¢ 105 ' 

; 30 1 : ' none 

; 3034 1 : 

; Se? ’ 5 OUTPUTS: 

; O39 11 ' none 

; 3038 111 : 

; 3039 V6 ! SIDE EFFECTS: 

3 3040 11 ; 

3 bes WN none 

. a ie 

; 3045 "8 bind 

3 3046 11 nafhdr = cstring (' Node Remote User Local User’), 
3 et ; ? shownaf = cstring ("!6AD::!12AD '12AD"); 

3; 3049 1 ¢ 

3; 3050 1 if .wild_netuser 

; 3051 124 and not 

3 p26 125 begin 

; be 1 S local 

; bee ' nodelen, usrlen, proxy_buf : vector(naf$s_remname+2,byte); 
; 3086 ’ ; dbl_colon : vector; 

; 3058 131 nodelen = namelen (naf$s_node, netbuf(naf$t_node]); 

3; 3059 1 § usrlen = namelen (naf$s feayser. nerbul (natSe _remuserd); 

; 3060 1 ch$move (.nodelen, netbultnat t_node], proxy_buf (0J); 

; 3061 134 ch$move (2, -dbl_colon proxy_buf t .nodelén)); 

3 beg : : 5 ch$move (.usrlen, netbuf tnat$t_remuser), proxy_buf C.nodelen+2)); 
3 Boe 1 $ srlen = .nodelen + ,usrlen + 2; 

3 5 ' 3 mgSnatch none (,usrlen, proxy_buf, -match_tokenlen, match_token) 
; en 

; be3 140 

3 141 return; 

; 106 

j 0 14 found_match = true; 

3; 3071 144 

3 Br6 145 if .header_flag 

3 44 196 then 

3; 3074 14 begin 

3; 3075 14 faomac (nafhdr); 

: 078 14 output_null; 

; 307 15 header_flag = false; 


UAFMAIN Sep-1 


4 VAX-11 Bliss-32 V 
v04-000 display_proxy = format and output a proxy entry 1S-se ~Sep-1 198 96: 38: 33 DISKSVMSMA 


40-74 
STER: (UAE. SRC JUAFMAIN.B32; 39 


; 3078 151 end; 
; 3079 1 § 
: 3080 P 31 faomac (shownaf, 
; 3081 P 3154 naf$s _node, netbuf(naf$t_nodel, 
: ore P 3155 love naf$s_remuser, netbuf(naf$t “remuserd, 
; 308 P 31 $ ieee naf$s_localuser, netbuf(naf$t— “localuser]); 
: 3084 P 3} 6, netbuf(naf$t_nodel, 
3; 3085 P 3158 1g. netbuf(naf$t_ “remuser), 
; 5086 159 12, netbuf(naf$t_ localuser]); 
; 3087 160 
; 3088 161 1 end; 
-PSECT S$PLITS,NOWRT,NOEXE,2 
3 68 54 P.ACN: .BYTE 34 3 
20 65 74 6F 6D 65 52 20 $8 20 65 64 6F 4 0255 -ASCII \ Node Remote User Local User\ : 
20 6C 61 63 6F 4C 20 20 20 20 20 72 65 7 5 8 $ 3 
72 65 73 55 00273 3 
14 00277 P.ACO: .BYTE 20 5 
20 20 20 20 44 41 32 31 21 3A 3A 44 41 3% $1 00278 ASCII \!6AD::!12AD '12AD\ : 
44 41 32 31 21 00287 ; 
NAF HDR= P.ACN 


SHOWNAF = P.ACO 
EXT SYSS$FAO 


~PSECT S$CODES,NOWRT,2 


OFFC 00000 DISPLAY_PROXY: 
WORD Save R2,R5.R4.R5,RO,R7,RB-RI-RIO,R11 


5B 06000000" 00 9€ 00002 MOVAB R_FLAG, R11 ; 

5A 000000006 99 9E 00009 MOVAB Ore BUT R16 ; 

59 00000000' 00 9€ 00010 MOVAB DBL COLONtS. RO ; 

BE tttttee ORE OOF BOOTE sh dimers EP 

25 60 hs : 00 5 BLBC WILD_N fUSER, 1$ : 

060c 8 20 é A 00 6 LOCC. #32, , NETBUF : 
56 20 0 ¢3 00 ¢ SUBL3 RO #32, NODELE : 

062c C8 0 20 A 000 Loce. #32, #32, HE TBUF +32 ; 
57 0 0 00 SUBL3 RO Pi RLEN : 

6E 060c ¢ 36 003A MOVC NOBEL EN, Ne TBUF PROXY _BUF ; 

5 6 p 0 49 MOVL DBL_COLON+4, RO- ; 

6646 9F 0004 PUSHAB PR Ry “BUF CNGDELEN] : 

9 0 46 MOV (RO) eye's : 

02 AEG6 062¢ 4 MOVC3 SR NETS BUF +32, PROXY_BUF+2CNODELEN] ; 
02 A746 E 1 MOVAB sate DENODELENI, USRLEN : 

; 18 AaB 9E 00056 MOVAB MATCH ; 

6— 9 A MOVAB PROXY “BU OF ; 

4 5c OAB OCOD D MOVL MATCH lOKGNLEN, RG ; 

2 57 D 61 MOVL Fao 3 

: 000000006 ! , JB FMGSMATCH_NAME ; 

0748 8 D 1$ MOVL F OUND MATCH : 

F : f BLBC Pad FLAG, o$ ; 

FB OAB 0140 ¢9 9B 0007 MOVZBW NAFHDR> FAODSC ; 


3 
UAF MAIN 1s Sep =138¢ 9: }o: 33 VAX-11 Bliss-32 V e 112 
VO4- splay_proxy - format and output a proxy entry Sep K$V y UAFMAIN. 
04-000 displ f d 14S 2 DISKSVMSMASTER:C AES Oske IN.B32; 29 * (23) 
FC = AB 0141 f 3E ty ot tor NAFHDR+1, FAODSC+4 : 
7E 68 2 4 4 ADDL3) #34, RABPTR, -(SP) s 
Fe OA F PUSHAB FAODSC : 
00000000G 00 9 4 é bathe 4 PM gs 5 
A 01 Fe 9 CALLS #1 sysspyr 3 
0 68 D 97 MOVL RAP : 
22 8 B4 QO09A CLRW 34(RO) 3 
3 DD 90 PUSHL RO ; 
6A 1 FB oF CALLS #1, SYSS$PUT : 
68 Be BRA CLRL HEADER_FLAG : $128 
FB OA 163 «C B AG 2%: MOVZBW SHOWNAF, FAODSC 3; 3159 
ri. & 164 C9 9E QOOAA MOVAB SHOWNAF+1, FAODSC+4 : 
064C C8 OF 080 PUSHAB NETBUF +64 5 
OC DD 00084 PUSHL # 3 
062C Se 9F 000B6 PUSHAB NETBUF +32 : 
C DD QOOBA PUSHL #1 : 
060C C8 9F QODBC PUSHAB NETBUF ; 
06 ge 00C0 PUSHL #6 ; 
FO AB OF Bare PUSHAB A tt ; 
7E 68 cf gt 0c ADDL3) #34, RABPTR, -(SP) ; 
Fe OA F 000C9 PUSHAB FAO ; 
00000000G 00 0 4 4494 tty #9, SYSSFAO ; 
6A 01 FB Sp OOR CALLS #1, SYSS$PUT : 
04 00008 3$: RET ; 3161 


; Routine Size: 217 bytes, Routine Base: SCODE$ + 133D 


3 


UAF MAIN 
v04-0 wi 


GRP_WILD = Group wild card (must imply UIC_FLAG) 
MEM_WILD = Member wild card (must imply UIC_FLAG) 
STR_WILD = all users enpnaney 160 ty (must_imply NOT UIC_FLAG) 
UAFRAB = RMS data structure for SYSUAF.DAT 
RECBUF = The current record 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 


f an abnormal condition is encountered the appropriate status 
s returned. 


SIDE EFFECTS: 
none 


ld 
090 1 1 Xsbttl ‘wild_user - user wild card routine’ 
091 188 Lobal rout ihe wild_user (action) = 
09 164 egin 
09 165 
085 169 Si 
$38 198 FUNCTIONAL DESCRIPTION: 
098 15 Provide a general means of accessing the User Authorization File 
4 17) records. There are six methods: 
1 18 UGMS 
1 174 IRET 
1 175 CPMR 
1 \f8 \\NA 
1 17 F Wild 
: 45 ALLL 
} 139 Syntax GDDD Interpretation 
1 136 Username FFFF Exactly one user is to be located 
1 18 * FFFT ALL users or prapeticel iy) 
1 184 Group,Member] TFFF ALL users with the specified UIC 
1 185 Group,* TFTF ALL _users in the specified group Oy member ) 
1 186 *,Member] TTFF A FIFO Listing of the groups with this member 
: +4 *,*] TTTF ALL users by UIC 
H +4 INPUTS: 
* bd ACTION = Pointer to routine to call after each successful GET 
: i 
1 32 UIC_FLAG = UIC form (instead of username) 
97 
19 
1 


i 
' 
i 
i 
i 
' 
i 
{ IMPLICIT INPUTS: 
i 
' 
t 


Be Se Se Se Se Se Be Se Se Se Se Se Se Ge Se Ge Se Ge Ge Ge Ge Ge Ge Fe Se Fe Ge SH Se Ss Se Se Se Se Ge Se Se Se Se Se Se Se Se Se Se SeSe ee Se Se Se Sse Se Se eee as 


AAA AHA. AAA AAA AAI AAA 


PELL LEE ns 16 bbb tbandatene pololola) 
SOR GR DOS ORI SONNE UN "SODNONEWUOODR NE MRO S 


me ee ee ee ed etd od od td od wd) 8 
2S MOOOOOOOOOOO 


COONOUE WO OONOU SEWN OOO 
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<c 
. 


3 
UAF MAIN 16-5e =1984 02:16:54 VAX=11 Bliss-32 V4.0-74 p 14 UAI 
v04-000 wild_user = user wild card routine 1 390-1 3h 95:39:33 DL SKSVMGMASTERSCUAE SRCSUAFMAIN.B32;1°9" (245 voi 
7 
macro i 
imt_l_uic = 0,0,32,0%, ! User ID Code i 
Lmt_wimem = 0,0,16,0%, ! Member subfield i 
imt_wigrp = 2,0,16,0%; ! Group subfield 
local 
status, ! This routine's status i 
imtkey : block(4,byte]; ! Limiting key value for sequential loop i 


if .vic_flag 
then 


i Change the key of reference and the key buffer if a UIC form was 
specified. 


WWWAIWWIWIWIPorornonorororononuny 


PROPIPIPOPINIPOPOPININNYD 
SNAP AAA AAA AO TUTTI UT UT UT BS BBB BBB EE PW 

x n=O VERO OONA UE WN 0 OONOU FWA" 00O DONOU EWA" OVOONOUL UM 
BPM ANAIINHAIAIAIAIAIIUPPPOPPPIPONODPPOPOPONONONONPOPOPUPON 

oO — meme 

= 

w 

eo 

cs 8 

eo 2 

ae 


begin 

uatrab[rab$b_krf] = 1; 
uafrablrab$l_kbf] = recbufCuaf$l_uic]; 
uafrablrab$b_ksz) = 4; 


end; 


if .mem_wild and not .grp_wild 
then 


The UIC requested was of the form (Group,*] 
uafrabCrab$v_kge] = true; 


i LMTKEY need be loaded only IF .UIC_FLAG AND NOT (.GRP_WILD AND .MEM_WILD) 
' but it is simpler to always load if. 


imtkeyClmt_l_uic] = .recbufCuaf$l_uic); 
t 
: Locate the first user meeting the specification. 


— 
et pet Ps PEARED INI 
WI ODO NONE UII OOO Wor Ad oD OOO aC ONO nto OOD as 


if .str_wild or .grp_wild 
then 
begin 


POPRIPOPIPOPIPIPIPIPIPINIPININYPINOPNY 


Every user in the file is to be accessed. 


uafrabCrab$b_rac] = rab$c_seq; 
$Srewind (rab = uafrab); 
status = get_uaf_record (); 


SBSLESEANLSSELES 


gin 
sretus 2 pet wet _record (); 
if .uic_flag 
then 

begin 
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wild_user = user wild card routine 1228681 382 96:39:33 DL KSUMERA 


aR 
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COCO 
OOOonNoO 


roror 


WAAR PIPIPIPININPINPINIDD 2 SS OS SO 
A —OOONOUESWN OOONOULSWwn— 


MANIPRIPOIPSPIPININININIDD 2 | SH QDOOOOOOSCOCOC OOOO OOOOOOWMOMMmMmmcccncm~~ 


ROOD NOUN EWN OOOO UNE WN OOD NOUN EWN 0 OO NAME WIN “OOO NAOUFSW O00 
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PUPPIES BB BS EE EE EWI oe 
SSeNSUruv—o jG ARUN OOO WR wr 


AAAA A. AAAI AAAI AAAI AAA AAI AIA AAI 
AANAAA ANIA AAAI AAAI WIAA AI AAI AAA 


Even an explicit UIC requires sequential reads to locate duplicates. 


uafrabCrab$b_rac] = rabSc_s¢ : 
f Cees ld and not .grp_w ta 


begin 
RABSV_KGE is set on the initial access for specifications of the 


form [Group,*] so if the specified group has no members the record 
will be that of a user in Gnother group. 


uafrabCrab$v_kge] = false; 

begs MOROY imt_wigrp] nequ .recbufCuaf$w_grpJ 

status = rms$_rnf; 

end; 
end; 

end; 


if .status 
hen 
begin 


i Feed the action routine the 


first record. In the case of an explicit 
username specification this will 


be the only record. 
while .status 
do netsh 
egin 
if 
if .grp_wild and not .mem_wild 


then .recbufCuafSw_mem] egl .lmtkey(lmt_w_mem] 
else true 


then status = (.action) (); 

if not .status then sal bag | § 
if not (.str_wild or .uic_flag) 
then exitloop; 

status = get_uaf_record (); 

if not -statUs then exitloop; 
if .vic flag 
then 


The Limiting key value is used in different ways depending 
on the form of the UIC specification. 


if .mem_wiid and not .grp_wild 
then 
CGroup,*) 
begin 
f .lmtkey(lmt_w_grp) nequ .recbufCuaf$w_grp] 


then exitloop; 
end; 
if not (.grp_wild or .mem_wild) 
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v04-000 wild user = user wild card routine 30071382 9: 38: 33 DISK SKSVMER TER: UAE she UAFMAIN.B32; y 9¢ 5 


id 
$ 6 ? then : 
: 326 5 ' CGroup,Member) 3 
: 3264 $ ! 3 
: 3265 6 3 
; 326 8 F9 Cathey int. utc) nequ .recbufCuaf$l_uic] : 
; 326 lied exitloop; 3 
3; 3268 40 end; 3 
3; 3269 41 4 end; 3 
:; 3270 4 end; ! end of wild carding loop ; 
: 71 4 if stetus eql rms$_eof ; 
; ue 44 then status = true;~ ! Hitting EOF is ok ; 
3 7 45 end; 3 
3 74 r4 3 
3 75 4 oy « wild and not .found_match ; 
: 3276 48 then ST TOSSIGNAL (UAFS _BADSPCT; 3 
£3558 30 5 
3 279 23 } The RAB must be returned to its former state before exiting. : 
3 $e) 358 uafrabCrab$b_rac] = rab$c_key; : 
; 88 338 if .uic_flag 3 
: 3284 28 then g 
; 3285 $2 "hs in 3 
: 86 28 uafrabCrab$b_krf] = 0; F 
3 $505 32 uafrabCrab$l"kbf] = recbufCuaf$t_username]; 3 
; 3288 60 uafrabCrab$b_ksz] = uaf$s_username; 3 
: $563 361 end; 3 
; 3290 6¢ 3 
: 363 6 ! 3 
3 36 64 ' Reset parse count : 
; 353 365 ! 3 
: Soe $09 call_count = 0; 3 
: 3295 36 3 
; 3296 368 .status 3 
3; 3297 3369 1 end; ‘ 
4 oov Ools 0000 Ph sob hy GET_OAP REC pave Ree oR3,R4 ; 3163 ‘ 
$ bo000000' 09 SF 00009 MOVAB  GRPTWILD™ RS 
E 4 C¢ 1 SUBL “$p 3 : 
FC a3 f 1 Biac.~—_—saus ¢ FLAG : 3229 : 
FF50 «OC F95C c 1 MOV RECBUF* 6, UAFRAB+48 ; 3237 : 
FF54 OC 0194 F B 1 MOVW #260, UAFR : 3238 ; 
8 4 AS E 1$: BLBC MEM_WILD, : 41 3 
§ 3 BLBS GRP-WILD, 2$ 3 3 
FF26 C £ BISB2 #32 UAr 3: 324 3 
F95¢ C3 D 23 MOVL RECBUF+36, LATKEY : 2 ; 
0 AS E BLBS arn uit ° : 3 
6 A BLBC GRP-W Lp 4$ 3 3 
EERE C3 94 p 3$ CLRB AF RAB+30 : 3365 : 
FF C F PUSHAB UAFRAB : 66 : 


H 3 
UAFMAIN 16-Sep-1984 2:16:54 VAX-11 Bliss-32 V4.0-74 Page 117 
v04-000 wild_user = user wild card routine 1228687} Bd 96:39:33 DISKSVMSMASTER: CUAF ..SRC JUAFMAIN.B32; 1 . as 
000000006 0 1 FB 00045 CALLS #1, SYSSREWIND : 
: F 4¢ CALLS #0, GET_UAF_RECORD : 3267 
2 p 4f MOVL RO, STATUS : 
BRB 5 3 ; 59 
64 F 4$: CALLS #0, GET_UAF_RECORD + 3271 
2 D MOVL RO, STATUS : 
iF FC OA f A eiac~—-s¢ FLAG 5$ : 327 
FF3E C3 94 CLRB = UAFRAB+30 + 327 
17 a | Eg BLBC MEM_WILD, 58 : 327 
14 : ; BLBS  GRPWILD, 5$ : 
FF26 C3 A BICB2 #327 UAFRAB+6 : 3287 
FOSE =¢ 02 AE é E CHP TKEY+2, RECBUF +38 : 3288 
52 00018282 BF D 76 MOVL #98994, STATUS + 3290 
B E 7D 5$ BLBC STATUS, 12$ : 3295 
4c £9 9080 6$ BLBC STATUS, 11$ : 3302 
08 63 €9 000 BLBC  GRP_WILD, 7$ : 3306 
0 94 AS EB 00 BLBS MEM WILD. 7$ : 
6E F95C 3 BI 00 A CHP RE CBUF +56, LMTKEY + 3307 
04 BC 0 FB ity 7$ CALLS #0, @ACTION + 3310 
3¢ D0 0099 OVL RO, STATUS ; 
4 E9 00098 8s BLBC STATUS, 11$ + 3311 
04 08 A3 EB 0009B BLBS  STR_WILD, 9$ + 3312 
2c FC «ABS. ED 0009F BLBC UICTFLAG, 11$ ; 
64 0 Fe OOA3 9$ CALLS #0, ~GET_UAF_RECORD + 3314 
36 D BOA8 OVL RO, STATUS 3 
2 E9 000A BLBC = STA 11$ : 3315 
ny) FC OAS OED DO0AC BLBC —>UIC_FLAG, 6$ : 31 
re bon 
C6 23 £§ 0087 BLBS GRP_WILD, 6$ : 
FOSE ¢ 02 AE 81 OBA CMPW LMTREY #2, RECBUF +38 + 3329 
Op 6 C BNEQ 1$ ; 
B 63 € C2 10$:  BLBS  GRP_WILD, 6$ + 3332 
B 50 € ¢ BLBS RO, 6$ ; 
F95C. COC 6 DY Oe CMPL LMTKEY, RECBUF +36 : 3338 
0001827A BF : pj 0 CF 11$: cMPL STATUS, #98938 : 3343 
52 i) +3 MOVL #1, STATUS : 5 44 
11 0 a3 E DB 12$:  BLBC STR WILD, 13$ ; 7 
0D FB OAS CE DF BLBS § FOURD_MATCH, 13$ ; 
000000006 8F ODD i PUSHL HUAFS BADSPC > 3348 
000000906 09 1 F CALLS , LIBSSIGNAL ; 
ele a a aa At tr 
FF5O «OC F93C ¢ 55 F MOVAB gSBUF * UAFRAB+48 ; 3359 
FF54 8 MOVW , UAFRAB ; 
F914 ¢ D4 00105 14$:  CLRL  CALL_COUNT : 3366 
50 BO ? ROVL STATOS, RO ; 3369 


; Routine Size: 269 »ytes, Routine Base: S$CODE$S + 1416 


3 
UAFMAIN 1b-se -1984 02:16:54 VAX=11 Bliss-32 V4.0-74 Pp 18 UAI 
v04-0 display_brief - writes a brief user display 1 =300 71382 96:39:33 DLSKSVMSMASTERSCUAF SRC SUAFMAIN.B32; 17%" (oe, vO 


: 3299 70 1 &sbttl ‘display_brief - writes a brief user display’ 

; 3300 8 1 rout ne display-brief = — 20 
; 84 4 begin 

: 8 74 2 44 20 
; 3304 75 ! 

3 $2 8 ; FUNCTIONAL DESCRIPTION: 20 
3; 3307 78 ' Provides an ASCII Listing of the most important record information 

; 3308 79 ' (username, owner, etc.) for each record supplied. 

: 3309 80 ' 20 
: 3310 5) ! INPUTS: 

; 3311 § ! 

3 \¢ 8 ' none 20 
: 3a 88 5 i IMPLICIT INPUTS 

; 3315 86 ' 44 
; 318 $88 RABPTR = RMS data structure for the file 3A 
H 316 89 ! OUTPUTS: &C 
; 3319 90 ! 

; 359 4 none 29 
; 33 ; 395 ' IMPLICIT OUTPUTS: 

3354 395 5 i 

3 ! none 

; 3325 96 ! 44 
: 3326 97 ' ROUTINE VALUE: 2c 
; 3327 98 ' 

; 3328 399 ! none 

3 $355 400 ! 

; 3330 401 ! SIDE EFFECTS: 35 
; 3331 tne ! 20 
; HA 40 ! none 

3; 333 404 ben 

; 3334 405 

:; 3335 406 bind 35 
; 33 P 3407 iststr1 = cstring (' Owner Username VIC Account Privs', 20 
3 tH 408 * Pri directory). 

3 $ ret iststr2 = cstring ("!20AC !12AD !15%U !8AF !6AC !2UL !AC!IAC'); 

; 3340 411 2! 35 
3 1 aL ; Output a header if one was requested. 20 
; § 414 2 if .header_flag 

fr hee 
; egin 

; § 419 faomac (\ststr1); > 
; +\8 output_null; 

3 8 41 header_flag = false; 

: 3350 re nes 5 
; 3351 4 ¢ if .str_wild and not fmg$match_name (namelen (uaf$s_username,recbufCuaf$t_username]), 0 
: 26 4 recbufCuaf$t_uSername 

: 4o4 smatch_tokenTen, match_token) 

3; 3354 425 then return true; 

3; 3355 426 35 


UAFMAIN 1b-se Sep-1 VAX-11 Bliss-32_V 19 
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3 ; found_match = true; 
: 8 4 
: 4 ' Output the record. 
304 wa §' 
3 66 r § ch$fill (" *, disbuflen, disbuf); 
: 3364 P 3435 faomac (lststr 
; 3365 P 34 8 recbufluaf$t owner), 
3 4] P 34 lene uaf$s_usérname, recbu cuatee username], 
; 336 P 34 : 12, res ut tts. sername 
; 3368 P 34 -recbuf uats ef" 
; 3369 P 3440 ter, uaf ; cae ggune recby Cunt St account], 
: 70 P 3441 5) ae rt account 
: 3371 P aug tas v v Crecbuttuatsa. priv], .recbufCuaf$l_uic]), 
3 Lf P 344 erecbuf oof 
; 337 P 3444 fecbuftuatst_ “detaei3 
: 3374 445 recbufluaf$tdefdirJ); 
Be HSB, 
; rue 
: 3355 30th 1 end; 
-PSECT S$PLITS,NOWRT,NOEXE,2 
4E 0028C P.ACP: .BYTE 78 : 
20 20 20 72 65 $f 77 «GF 3! $8 8 0 20 20 20 88 8D ASCII \ Owner Username . 
20 65 6D 61 6E 72 65 73 0 0 20 20 20 0029¢ 3 
20 20 3 $0 0 ° 0 2 0 ae 3 
75 6F 63 63 41 $ 0 § 43 49 028 eASCII \UIC Account Privs Pri Directory\ : 
44 20 69 72 50 20 6 69 e 74 of 02C4 3 
79 72 6F 74 63 65 72 6 8 D3 3 
7 DB P.ACQ: .BYTE 39 3 
33 31 21 20 44 41 32 31 21 20 43 41 30 38 1 020C eASCII \!20AC !12AD '15%U !B8AF '6AC !2UL !AC!IAC\ 3 
32 21 20 43 41 36 21 20 46 41 38 $} $3 5 : 002EB 3 
43 41 21 43 41 1 4C OO2FA 3 
LSTSTRI= P.ACP 
LSTSTR2= P.ACQ 


-PSECT SCODES,NOWRT,2 
O7FC 00000 DISPLAY BRIEF: 


-WORD Save R2,R3,R4,R5,R6,R7,R8,R9,RI0 3; 3371 
E 0 MOVAB HEADER FL FLA Ag. R10 ; 
E MOVAB SYS$FAO, ; 
E 0001 MOVAB SYSSPUT. R : 
E 0001 MOV LSTSTRI. R ; 
. 1 MOVAB RABPTR, R6 : 
6A BLBC HEADER FLAG, 1$ : 3414 
7 98 MOVZBW LSTSTRT, FAODSC : 3417 
A? 9E . MOVAB LSTSTRI41, FAODSC+4 ; 
As F PUSHAB BI SDs¢ ; 
a et ADDL3 #34, RABPTR, -(SP) : 


Kk 3 
UAFMAIN 16-Sep-1984 02:16: VAX=-11 Bliss-32 V4.0-74 Pa UA 
v04-000 display_brief - writes a brief user display 12780-1382 96:39:35 DI SKSVMGHASTER CUA SRCSUAFMAIN.B3251 oe 320 vO 
F8 ag OF 8 PUSHAB FAODSC ; 
69 FB B CALLS #3, SYSS$FAO ; 
é DD PUSHL RABPTR : 
68 F 4 CALLS #1 SYSSPUT : 65 
0 D 4 MOVL RAgPT " ; 
22 AO B 4 CLRW 4(RO : 
DD 0004 PUSHL RO : 
68 1 FB 00048 CALLS #1, SYS$PUT : 
A D4 0004 CLRL HEADER FLA + 3419 00 
0758 C6 Fg 1$: BLBC STR_WICD, : age 
18 «OA E MOVAB MATCH_TOKEN, R5 3 34 00 
008C &6 E 9 MOVAB RECBUF+4, R : 
ousc 6 A E LOCC #32, #32. RECBUF+4 + 3422 
: EO AQ E 00064 MOVAB -32(RO), R2 ; 
5 cE 68 MNEGL ; 
54 A6B D 6 6B MOVL _ MATCH_TOKENLEN, R4 + 3423 
000000006 if oF JSB FMGSMATCH_NAME : 
5D E9 00075 BLBC ~=_—«aRO, 3 ; 
0748 66 1 BO 9078 2$: MOVL. #1, FOUND_MATCH + 3427 
0084 8F 20 6E mice 00 ¢ 9070 MOVCS #0, (SP),"#32, #132, DISBUF + 3433 
FB OG 4F A? 9B 0087 MOVZBW LSTSTR2, FAODSC + 3445 
FC AG 50 A? 9E 0008C MOVAB LSTSTR2+1, FAODSC+4 ; 
onic C6 9F 00091 PUSHAB RECBUF+148 : 
oF C6 9F 00095 PUSHAB RECBUF+116 ; 
7E 028C C6 9A 00099 MOVZBL RECBUF+516, -(SP) ; 
OOat C6 OD O09 PUSHL RECBUF+36 ; 
0224 C6 9F OOOA PUSHAB RECBUF+412 : 
00000000v 00 08 FB 000A6 CALLS #2, CLASSIFY_PRIV ; 
D OAD PUSHL ; 
00BC C6 F OOOAF PUSHAB RECBUF+52 F 
08 DD 00083 PUSHL # ; 
OOAC C6 DD 00085 PUSHL RECBUF+36 ; 
008 ¢é6 9F 000B9 PUSHAB RECBUF +4 ; 
0c pp 00BD PUSHL @# ; 
Oopc Cé 9F O00BF PUSHAB RECBUF +84 ; 
FO «=A OOF 000C3 PUSHAB DIS ; 
7E 66 22 C1 O0¢6 ADDL3 #34, RABPTR, -(SP) : 
F8 AG OF OOOCA PUSHAB FA ; 
69 0D FB O0¢D CALLS #13, SYSS$FAO : 
66 DD OD PUSHL R ; 
68 gt FB 00D CALLS #1, SYSSPUT ; 
5 1 p 900 3$: MOVL #1. RO > 3448 
4 00008 RET ; 


; Routine Size: 217 bytes, Routine Base: S$CODE$ + 1523 


3 
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449 1 Xsbttl ‘classify_priv - classifies contents of priv vector’ 
4 1 rou tee classify_priv (prvadr, uic) = 
n 


or .prvadr(prv$v_cmexec 


or .prvadrlprv$v_sysnam 
or .prvadr prvév deta h 
or .prvadriprv$v_ 

-prvadr(prv$v_setprv 
-prvadrtprv$v_phy_io 
or .prvadriprv$v_pfnmap 
-prvadr(prv$v_sysprv 


wre 
oo 
75 


; r : eg 

; 4 : e+ 

; 454 ' 

; ? 5 } FUNCTIONAL DESCRIPTION: 

3 139 ' Classifies privilege bits and reports the highest class available 
; 128 to the owner of the supplied vector. 
; +69 INPUTS: 

3 186 PRVADR = Address of the privilege vector 
; 464 ! IMPLICIT INPUTS: 

; 465 ' 

3 108 : none 

3 46 : 

; 468 ! OUTPUTS: 

; 469 ' 

; 470 ! none 

; 471 } 

; 4%6 ! IMPLICIT OUTPUTS: 

3 47 ! 

3 474 : none 

; $052 : 

3 476 ! ROUTINE VALUE: 

3 477 : 

: rh ! none 

3 47 ! 

; 480 ' SIDE EFFECTS: 

; 481 } 

3 +86 : none 

; 48 ed 

; 484 

3 485 map 

3 ty prvadr : ref block(8,bytel; 
3 488 bind 

3 489 lstprva = cstring (‘A L*), 

; 490 istprvb = cstring (‘Files’) 

; 491 istprve = cstring (System's, 
3 £36 istprvd = cstring (‘Devour'), 
3 49 lstprve = cstring (‘Group’) 

5 494 istprvf = cstring (*Normal'S, 
3 a3 istprvg = cstring (‘None’); 

3 199 if .prvadrCprv$v_cmkrnl 

3 £38 

3 4 

; ; 


wm 
°o 
| 
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-PSECT SPLITS,NOWRT,NOEXE ,2 


3 P.ACR: .BYTE 3 
\ALL\ 


cl 
7 34 or .prvadr(prv$v_readall) 
; 34 S $ or tr adr tprysu=bypass “ 
; 3438 or (.uic<16, 16> lequ .EXESGL_SYSUIC) 
; ti : then return (stprva; ! Universal Privilege 
: 3441 1 if .prvadr(prv$v_diagnose] 
> 344 1 or .prvadriprv$v_volpro 
; 344 1 or .prvadriprv$v_upgrade] 
> 3444 14 or .prvadrlprv$v_downgrade) 
; 3445 515 or .prvadr prvevasecurity 
; 34 8 or .prvadr prvsv_sysgbl 
ae ret if then return lstprvb; ! Potentially Comprimises File Security 
: 519 if .prvadrCprv$v_pswapm 
: 3450 520 or Orvedr prvgvcsetort) 
; 3451 521 or .prvadrCprv$v_wor g] 
3 126 5 § or .prvadr(prv$v_oper 
3 nt 2 ? then return lstprvc; ! Can Interfere with System Operation 
; 3455 525 if .prvadrCprv$v_grpnam) 
>; 3456 5 8 or .prvadrlprv$v_allspool) 
; 3457 5 or .prvadriprv$v_noacnt 
; 3458 528 or .prvadr(prv$v_prmceb 
3; 3459 529 or .prvadriprv$v_prmmbx 
; 3460 530 or .prvadr(prv$v_exquota) 
; 3461 531 or .prvadrlprv$v_bugchk 
; rh 5 § or .prvadr prvév_prmgb| 
3; 346 5 or .prvadr(prv$v_shmem 
3 ree) 230 then return (lstprvd; ! Can Devour System Resources 
; 3466 32 if +prvedrbprvévgroup) 
; 3467 537 or .prvadr(prv$v_grpprv] 
3 ree 238 then return (stprve; ! Can Interfere with Group Members 
3; 3470 3320 if .prvadr prvév.tepabx) 
3; 3471 541 or .prvadr(prv$v_netmbx 
; 347 246 or .prvadr(prv$v_mount] 
3 3474 7 then return lstprvf; ! Normal Privileges 
: 3475 545 2 lstprvg ! Not Privileged 
: 3476 546 end; 
0 ; 
6c 6C 4 -ASCII 3 
9 7 P.ACS: .BYTE ; 
73 65 6C 69 ASCII \Files\ ; 
P.ACT: .BYTE : 
60 65 74 73 79 ASCII \System\ ; 
? 14 P.ACU: .BYTE 3 
72 75 6F 76 65 «ASCII \Devour\ ; 
03 1B P.ACV: .BYTE ; 
70 75 6F 72 “aete! \Group\ 3 
06 P.ACW: .BYT 6 : 


| ma oft OCOK- NMTHORD OO RKUMTNOK CORK KWM MOROCCO Ww 
No WwW GF SeOoo ScOeoCoceooco SC Serer kK Kw SUsurururumns 
i —-™N rT TF TT MOWMMOMOH YO MW sea 
| ~~" MN MO MMMM MIMMMMMEN FI MIMIMRREIAT BREE RRR 
' 
| o e*e*e Sd i i i id i el Di i i ei ei te ti et tei ee eh eh eh eh eh eh a od oe ed ee ee ed 
| s 
| ae 
| — 
| N 
| ~ 
| a 
} . 
z 
| — 
| <= 
= 
_— 
be 
> 
Ne 
be Sed c=) 
na = 
iw p= | 
oOo - Wn 
oe > 
w< “ 
>> ‘ | 
pay a j 
Ne o 
ma ad | 
tw w 
ne * 
aw ws 
-—< | 
-—= * 
aun Oe) ow | 
= ~ PAAPAAAA + F AAA Aa A PP Pe 
-> _ we ot hh Se eh ee eh am mmr wn oO AAAKrKKPF 
a oS a ~N << —=——- wm - - er 
x z «zo esses e835 & . ss 3a *s. a ese se 6 
xw aeuwe-D>3= o a sess LAO AA nm -~- Aan es Ree @A 
<—_— - VVOOOVLOUY z .- anne Cooooocoe =: * -AOMOOCO + COOWOoO + --—-—CcOoOoC Cr 
>a <<<a<a<aac . NE we COO @Qeaeaacaco < Of@ fgaece ge aw ocooodceca 
ea a“ sft eeeee > eo cack wwewewevreew er > eS eww we DO eae [ee es ee ee 
e ® aaaaaaa [vey ca ~~™ Tr = &e Yew avew = a- ¢& =~ -~ 
& ¢€ a oa.<~ ~ =o 2% . a = “a. -_ oOo a sss & 
o oso o Se>o rss OO SUOOD Os eA eK SE 8 WN OOM EOFS Fs ORK OME 
wu 2 2 v BAEZ EK OWWNEAK— VUUOUIM MOB MOONY — ONO eRe Ye K MOM TIO KK NS 
wu “Ta 7 Oij4A~RBBZBV~—-- BRBVVVRVRVN IJ VPVTVVFZ Je BRVVAZ I VSVZVZZVZAEZS™ 
oe 
Nu Sle be oe 
co) OLLI i) > fat > 4 | 
OR VEY w edt iw ow nae ” “” w” 
o- w>w YF CO>[S>PSWMVVOYO-VMMMNMNMNMN YA — SPMAVVHODKVHY SOMVVODL 2>WDKMMMNMKMNNN @ 
wv Fe hneenen . a *EZTOOOO- MOOMODOOYlATIMDOOAODOOODIOMDOOODOLOOOOOOOODO 
ow <«mMvounuWo aw 
-— >S>>>>>> _ 
‘ss = eaacacanc ” 
aa wv aaaaaaa ” 
moe —s eee eee <x 7” 
mm . NMMNMMMM =) fa Af “A eo ff 
= a a J4a44j4 ve - ™ m" + ww «© 
-— woo oS pe te A re te ane a ae bm a ew ON we Oe bos 
cu SG BS NINN CIPIN TT SF TT TOUNN OOOO OP-P-P-P ao 
, MON S SSSSCSCCOCSCOSCOCOCSCOSOSCSOSSOSOSOOSOSOSOSOSOSOSOOSOSOSSOSOSOSOOSOoOSO 
es ooo S SOSCSCSSCSOSSOSOSOSOSCOSOSOSCSOSSOSSSSOSSOSOSOSOSOOSOOSOOSOOOSSS 
> ooo SS OOOCOCSOCOCOOCOOCSCOSOSOSSCOSCOS OOOO COOSOOOOOOOOOOOOOoOO 
> TFT WODOOCOMAOOCCCCSC <4 W-CODCS — WOOD w-- COOCOoon 
- w 
a o 
SLVOK—VNMNOM WO LOM OQOMM BONO — SONA YVOOWE MT O << Oreo 
wn = 
- ~N Ww ow w wv Nu << ~" 
cw OO oo So So o oOo o 
iF) o 
~ o 
ca wr o 
oo oO o 
e So 
sia Oo 
-_- 
eo oO NMOWMOOCO SOOOCOOCOCO — COWOC;So- Go Tco- DoOOCoOooory 
= MI O00 woowouodtdo- mo Owootc<cwomn oOwoowum owowowowowovV7so 
- 
“o oO 
" wT wv 
eo Oo oo 
—_ 
—) 
4 
> 
-_ 
c -—an —ABMNOLvLY ON Azo vo © Ove3rOVva 
2. moc Newrne- Oe -- OOO oo °o NOK KK OS 
~ 
o 
- Ea 
“ Oo 
“" 
oe 
a) 
— 


zo 
—_—O 
Oo 

g 
wT 
o 
> 


UAFMA 


UAF MAIN bse 4 VAX-11 Bliss=-32 V4.0-7 4 UAF! 
yOne000 classify_priv = classifies contents of priv vec =30071 Re 9G: 38: 33 DISKSVMSMASTER: CUAF . se UAFMAIN.B32; ie oe 85 04 


06 1B £1 OOOA BBC #27, (RO), 8$ : 3533 
$9 11 As : Me 7$: MOVAB tin vb, 1 : $233 
08 o 8 ae ea eek Se ad eee ; 3537 
31 18 «OA 55 98: MOVAB LSfP PaVE, ay : 3538 
60 B BB 11$:  TSTWw (RO) + 3540 
1 BD BLSS 1 F 
04 6 14 6 8 BBS #20, (RO , 138 + 3541 
a 6 11 § C BBC 8 $ + 354 
1E A t c? 12$: MOVAB Fir ino (* : 354 
50 25 A2 ge CC 13$:  MOVAB  LSTPRVG, RO + 3451 
04 00006 RET + 3546 


; Routine Size: 209 bytes, Routine Base: S$CODES + 15FC 


UAF MAIN 1b-5e Sep- VAX=11 Bliss-32 V4.0-74 Page 125 UAF 
v04-000 display_full = writes the full user display =360 71382 96: if 33 DLSKSVMSMAS TER CUAE SRCTUAFMAIN. B32: 1 . 35} v04 
: 347 47 1 &sbttl ‘display_full = writes the full user display’ 

; 347 ‘3 1 neat ta display= full = shh 

; 3480 4 begin 

; 3481 0 

: 34 ¢ 1 1++ 

: 34 ¢ ' 

: re ¢ 7 FUNCTIONAL DESCRIPTION: 

: 3486 5 i Display the fields of a UAF record. 

; 3487 $ i 

; 3488 i INPUTS: 

: 3489 228 : 

; 3490 59 i RABPTR = RMS data structure for the file 

: 3491 560 i 

: 349 561 i IMPLICIT INPUTS: 

3; 349 266 i 

: 3494 56 i none 

: 3495 564 i 

; 3496 565 i OUTPUTS: 

: 3497 566 i 

; 3498 567 i none 

3; 3499 568 i 

; 3500 569 i IMPLICIT OUTPUTS: 

; 3501 570 i 

; $208 571 i none 

; 350 276 i 

3; 3504 57 i ROUTINE VALUE: 

; 3505 574 i 

3 $208 575 ! none 

; 3507 278 i 

; 3508 57 i SIDE EFFECTS: 

; 3509 578 ' 

3; 3510 579 i none 

; 3511 580 ie 

; 21g 581 

: 3a 338 5 i Display stri 

3 ! Display strings. 

: 3515 a ee0 eee 

; 218 585 

3; 351 236 local 

; 3518 58 status : long ; 

3; 3519 588 

; 3520 589 bind 

; 3521 : username = cstring (Username: ! nT Syaer HAC), 
3 30 § 91 account = cstring ("Account: ' 'Zu ('21)"), 
3 3? 238 cli_table = cstring (‘CLI: i Re Tabies: 'AC'), 
: 3524 23 default = cstring ("Default tAC} 

: 3525 94 icmd = cstring ("LGICMD: 

; 35 6 395 flags = cstring ("Login Fla ty 

: 35 % flag_pad = cstring (%char (er) ichar ((f), "), 
; 3528 23 primdays = cstring Cpr mary days: !7(AC) d. 

; 3529 38 secdays = cstring ("Secondary days::7(AC)') 

; 35 5 norestrict = estring ("No access restrictions's, 

; 3531 P 3600 access nee 

; 35 § 6 wrieery. 0 

3 3 6 

; 35 6 


( 
oosbae Ue} stores Secondary 000000000011111111112222"), 
345698901296567890123 Day Hours 012345678901234567890123"), 


ooo 
wr 


‘Day fours snot 


dD 4 
16-Sep-1984 02:16:54 VAX-11 Bliss-32 V4.0-74 Page 126 
display_full = writes the full user display 13-8 8= 1 38e 96:39:35 PE KSUMGMASTERSCUAR SRCSUAFMAIN.B32;1 ° 33$ 
3 604 netaccess = cstring ('Network: !AD 'AD'), 
; 605 bataccess = estring ("Batch: ' AD 'AD'), 
; 6 $ sececcess = cstring (‘Local: 'AD 'AD'), 
3 8 6 diaaccess = cstring ("Dialup: ‘AD 'AD'), 
3 9 O88 remaccess = cstring ('Remote: ‘AD 'AD'), 
: 3540 6 expiration = cstring ("Expiration: !AD Pwdminimum: !2UL bogin Fails: 'SUL'), 
; 3541 610 wddata = cstring ('Pwdlifetime: ! “ chonges 'AD 'AD'), 
; rk 611 astlogin = cstring (‘Last Login: !A Cinserpetives. 1A Cpone Taveras tive)". 
; 354 oi6 quotal = cstring ('Maxjobs: ‘SUL sFillm: ' hbo '9UL"), 
3 3544 61 quota = cstring ('Maxacctjobs: !5UL Shrfillm: !5UL Pbytlm: !9UL"), 
; 3545 614 quota = cstring ('Maxdetach: !5UL B10Lm: 'SUL JTquota: !9UL"), 
; 208 91? quota4 = cstring ('Prclm: ‘SUL =DIOLm: aut wSdef: '9UL"), 
3; 354 18 quota = cstring ('Prio: ‘SUL «=ASTLm: 'SUL WSquo: 'OUL"), 
; 3548 61 quota = cstring ('Queprio: ‘SUL =TQELm: ‘SUL WSextent: !9UL"), 
: 3549 618 quota = cstring ('CPU: !13AD Enqlm: ‘SUL Pgfiquo: !9UL"), 
; a2 619 privs = cstring (‘Authorized Privileges: ‘), 
; 22) ? » defprivs = cstring ("Default Privileges: ‘), 
3 288 6 ; nullstr = cstring ('"), 
; 3554 6 
3 3920 624 mon = cstring (' Mon'), 
; 3556 625 tue = cstring (' Tue'), 
3; 3557 6 § wed = cstring (° Wed'), 
; 3558 6 thu = cstring (' Thu’), 
; 3559 628 fri = cstring (' Fri‘), 
3; 3560 629 sat = cstring (' Sat’), 
; 3561 630 sun = cstring (' Sun’), 
3 206 ? 1 noday = cstring (' i 
3 re) ? § cputime = recbufCuaf$l_cputim]; ! CPU Limit in hundredths of a second 
: 3566 635 own 
: 3567 636 flags_vector : vector (32) greset ( 
; 3568 637 $bitposition (uaf$v_audit) = cstring (' Audit"), 
>; 3569 6 3 $bitposition (uaf$v_captive)] = cstring (' Captive’), 
; 3570 63 $bitposition (uaf$v_defcli)] = cstring (' Defcli') 
: 3571 40 $bitposition juafevidisctty), = cstring (" Disctl "s, 
3 2f¢ 641 $bitposition (uaf$v_nomail)] = cstring (' Dismail") 
; 357 64 Sbitposition (uaf$v—dismail)) = estring (* Disnewmail'), 
3; 3574 64 $bitposition sua tav.djsreconnegt) = cstring (" Disreconnect'), 
3876 ro Sbicposition (usthvcaisccnesd. = cetring <° piouser’s.. 
; sition (uaf$v_disacn = cstr user'), 
3 err o66 $bitos it fon juetev.dtswel¢ m)) = estr ing ie pious, sens’ 
3 osition (uaf$v_genpw = cstrin enpw 
3 28 648 $bitposition (uaf$v~tockpwd) 2 = cstring (* Lockpwd'S, 
: 3580 649 $bitposition (uaf$v_pwd_expired)] = cstring (* Pwd_expired’) 
; bitposition (uaf$v_pwdd_expire = eciring wd¢e_expire 
3 630 Sbitposition (uaf$v_pwd2_expired)) ing (* Pwd2_expired’S 
: 35 65 
3 3B, 3 local : 
; 3585 654 count, ' count for string being built 
; 236 655 Lcount, ' count of chars on current Line 
3 33 65 string : vector (160, byte), ! buffer to build display string 
: 35 $2 flag_string : ref vector (,b fe » | pointer to flag string 
3; 3589 8 delta time : vector eS ) ‘ ' Scratch ores for sysiem delta time 
; 3590 65 PTR, ! Pointer into UAF$Q_PWD_DATE quadword 
; 3591 660 timel : vector C17, byte], ! buffer for time string 


‘ | 
UAFMAIN 16-5e 1984 02:16:56  VAX=11 Bliss-32 v4.0-74 p 7 
yO4~000 displey.full = writes the full user display  —e-deb-done SOeeios Beeb UnRALS PER chee seeSuarmasw.0ses12 8" co9s 


begin 

chemove (. flag_pade0 .8>, flag padtl, stringl.count]); 
count = .count + 5{5°8 pad<0,8>; 

lcount = .flag_pad<0,85 = 2; 


count = .coun ee r ng 
scount = .lcount + .flag_string 
e . 


end; 
ch$move (.flag_string(0], flag _stringl1], stringl.count)); 
BF tleg_ str taj ° . 


6); 


WBE PN ES 


i 
Od et ot oo 


NOUS WN oO 


; 359 1 time : vector (17, byte], ! buffer for time strin 
; 38 i time : vector Ei} byted: ! buffer for time string 
; 3595 664 2 builtin 

3 38 665 emul; 

3 209 008 

: $899 ee 

: 3600 6 § if .str_wild and not fmg$match_name (namelen (uaf$s_username,recbufCuaf$t_username)), 
; 3601 670 recbufCuaf$t_username] 

; 360 671 -match_tokenTen, match_token) 
3 ret ore then return true; 

; ret ore found_match = true; 

: 607 of8 output_null; 

: 3609 P ore faomac (username, 

; 3610 P 367 uaf$s poecpese. regpuflusfSt_usernsaed, 

; oi) eR0 recbuflCuaf$t_owner)); 

: gi p 68¢ faomac (account, 

> 3614 P 368 uaf$s_account, recbufCuaf$t_account], 

; 3615 P 3684 -recbufluaf$l_uic 

3616 685 -recbufluaf$l_uicJ); 

: 3618 P ri faomac (cli_table, 

3; 3619 P 3688 recbufCuafSt_defclil, 

3 ? rts recbufCuaf$t_clitables)); 

: 36 é P 3691 2 faomac (default, 

; 36 P 369 recbuf ustst.defdev] 

: : oo7 recbufluaf$t_defdirJ): 

: 36 $ P 3695 faomac Cigicnd 

3 i 24 recbu Cuaf$t_lgicmd)); 

: 308 £99 5 (count =‘ flags<0,8> 

; count = .flags 3 

i $631 Ai incr j from O°to $1 

3 ) 

; 36 § 7 ¢ begin 

: 70 if .bitvector CrecbuffusfSt. flags). jj 

; 5 Pe and (flag_string = .flags_vector -j3) neq 0 

; 705 then 

; 7 § begin 

: 7 f .lcount + .flag_stringl0) gtru 80 

; 36 3 then 


F 4 
«olin display_full = writes the full user display 12286871382 9¢:39:35 Mt eK synch Ai ERSCUARS SRCSUAFMAIN. B32;1 age 368 Vou 


; at end; 

; P 37 faomac (flags, 

3 f 1 -count, string); 

: p 37 : faomac (primdays 

; P 3724 if .recbuf uaf$v monday] then noday else mon, 

3 P 3725 if .recbufluaf$v_tuesday] then noday' else tue, 

3 P 37 § if .recbuf uat3v. ei tied te, then noday' else wed, 

; P 37 if .recbuf vet? Hy -fhursdes then noday else thu, 

H P 37 8 if .recbufluaf$v_ then noday’ else fri, 

3 P 37 if .recbufluaf$v Site then noday else sat 

; f 6 if .recbufCuaf$v~sunday then noday else suns; 

: P 37 § faomac (secda 

3 P 37 if .recbufCuaf$v monday) then mon else noday, 

: P 3734 if .recbufCuaf$v_tuesday] then tue else noday, 

3 P 3735 if .recbuf uatSv_ thursday) then wed else noday, 

; P 37 § if .recbufCuaf$v_th nugsayy then thu else noday, 

; P 37 if .recbuf uatv_f then fri else Reger 

3 P 3738 if .recbufluaf$v “saturday] then sat else noday 

3 444 if .recbufCuaf$v_sunday then sun else nodayS; 

; oe ch$fail (ch$find_not_ch (10*uaf$s_network_access_p, recbufCuaf$b_network_access_pJ, 0)) 
; en 

: 28 begin i 
; ye faomac (norestrict); 

3 en 

3 746 else 

: 747 begin 

3 748 faomac (accesshdr1); 

3 P88 faomac (accesshdr2); 

; 751 display_hours (netaccess, recbuf(Cuaf$b_network_access 5 
Z P36 display_hours (bataccess, recbufCuaf$b_batch_access -P 

5 75 display_hours (locaccess, recbufCuaf$b_local_access_ 

3 754 display_hours (diaaccess, recbufCuaf$b_dialup_access 0S: 
3 736 display_ hours (remaccess, recbufluaf$b_remote_access_pJ) 

: end; 

3 7 

; 738 convert_time (recbufCuaf$q_expiration], 17, timel); 

3 4 P28 aoma oypiration, 

; P 3761 ~recbutfuat _pwd_length), 

; 106 -recbuf mt ie to gta tg ); 

; 764 convert_time (re SUP ab AT pbwd. Lifetined, 10, timel); 

; 765 PIR = RECBUF UArS Q Pw Because q advords have ‘no’ width 
; 766 if egl 1) fed ie ( rng eqt - 

; , ust zs Patol t(Zascii' pre-exp red)" rn eT IME2) 

; 769 CONVERT_TIME(.PTR, 17, TIME 

3 7 convert tie (recbufluat$q_ pwd bate, 17, time3); 

7 a 

; Pp 377 ti ne, 

3 P 3774 Hf s *(recbufCuaf$q_pwd2_date]+0) or . (recbufCuaf$q_pwd2_date)+4)) eql 0 


ments, Ypye deta, 
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SE 


then 9 
else 17), time3); 


convert_time (recbut ua Se: Lastlogin_ ‘}. 15° time 
convert t “time (recbufluaf$q_lastlogin_n tim 


my att Login 
17, ti at 
emul (fref f° 00000) T's c. “gput ined) 3 
ire poor e en 54000 0 sles 0), delta_time); 
convert_ las’ (delta atime, i, timel 
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vv 


.recbufCuaf$w_maxjobs), 
-recbufCuaf$w_fil 
uaf$l— “bytla 5; 


faomac ete 


vuv0v 


-recbuf 


SQV 


~ 
O00 O00 0000000900 CO 090900 SII NII 


NOME WN O OONOUE WO OONOu 


-recbuf 


vuv0v 


-recbufCuat$w pe 
800 -recbufCuaf$w_bi 
801 -recbufCuaf$l~ ~jtquota)); 


faomac ate 


vvv 
Soo 
~o 


798 faomac cae 


IAA AAI AION 4 2 OOO 
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vw 
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.recbufluaf$w _precent), 
-recbufCuaf$w_diolm], 
-recbufluaf$l “dfwscnt)); 


Di Pin Pn i Pn in Pin Pin, iin, Pin Dy Sy tn in i, i Di Stn Sy i te Se i Si i i et te Sb | 


uaf$b_pri], 
uat$w_ astim), 
uaf$l~ “wsquota)); 


-recbuf 
-recbuf 


f aomac fae 
-recbuf 


uaf$b _queprid, 
uaf$w_tqcnt), 
uaf$l~ “wsextent)); 


-recbuf 
*recbuf 
-recbuf 


i) 
S 
vv 
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~~ 
= 
o 
vvvD 
‘9 Od Od Cd OD OD Cd OD OD: 
ee ed ed od ot = OOOOO 


yennes Cqyote’. 
.recbuf uaf$w_ ~engtmd 
-recbufluaf$l_pg (quota)); 


SOOONAOULS WN" OVOOnNOuw 


vvvD 


faomac Corie): 
print_priv (recbufCuaf$q_ priv)); 


f aomac igoter ive) 
print_priv (recbutCuat$q_ def_priv]); 
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' 
i Build a holder from the UAF record and display the rights 
i orented to it. 


9 


33 32 $f 53 


CWwofro —oO7"-o 


WAI WWE 


display full = writes the full user display 


-rdb_exists 


begin 
uat$build_ 
rdb_header 
status = u 
end ; 


holde 
flag 
afSwr 


return .status ; 
end; 
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SPLITS,NOWRT ,NOEXE,2 


27 
\Username: !32AF Owner: ‘!AC\ 


33 

\Account: !32AF UIC: ‘MU C!IRD)\ 
27 

\CLI: '32AC Tables: !AC\ 
16 

\Default: ‘!AC!AC\ 

13 

hated 'AC\ 

\Login Flags: !AD\ 

15 

$1718 \ 
\Primary days: !7(AC)\ 

21 

\Secondary days:!7(AC)\ 

22 

\No access restrictions\ 

70 


\Primary 000000000011111111112222 Seco\ 


\ndary 000000000011111111112222\ 


70 
\Day Hours 012345678901234567890123 Day \ 


\Hours 012345678901234567890123\ 


<c 
<= 


Call oft off off off off off off off off off oft fi off oft off oft oft fi oft oft odd ot oft odd odd oft ode 28 
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display_full = writes the full user display 


ote OH 8 8 3S 8 8G 8 
oO UT OH 8 88 88 88 20 88 8 


aviary ts 
Vv04-000 


'AD\ 


'AD 


28 
I \Network: 


by ee 


uO 


'AD\ 


28 
I \Local: 


'AD\ 


'AD 


P.ADM: 


SSF FFF TF TFT OONWAMAWMAMAUAMNAWMNAATAALAUAAUAATEAUATUAUATLALALLALN OOOOOOOOOOOOOO0000000 
SOSOSCSCSOSSOSOSOSOSOOSOSOOOSOSSOSOSOSSOSSOSOSOSOSOSSOSOSsS 


uO 


om woru 
Mo -O 
om OT 
-Oo vo 
om OC 
2%eo MNO 
om EO 
xO oo 
mu eC 
oo «oO 
wm Ee 
oo oo 
wm Cum 
oo oo 
om gues 
oo oo 
wm ou 
or ee 
wm our 
cr ee 
wv wv 
wv wv 
ww wv 
Oo Oo 

™~N N 

oOo Oo 

N ™N 


Lo\ 

AN 

!AD (non=\ 
SUL Bytl\ 
'SUL Pbyt\ 
'SUL JTqu\ 
'SUL WSde\ 
'SUL =WSqu\ 
‘SUL WSex\ 


'AD\ 

'AD\ 
Pwdminimum: !2UL 

Pwdchange: 


'AD 
SUL -Fillm: 
!SUL B1OLm: 
'SUL = D1OLm: 
'SUL ASTI: 
'SUL =TQELm: 


!9UL\ 


axacctjobs: !SUL Shrfillm: 
ASCII \Queprio: 


\Last Login: !AD (interactive), 


\Expiration: !AD 
50 
I \Maxjobs: 


I \interactive)\ 
\o: 
$0 


I ygin Fails: !5UL\ 
I \Pwdlifetime: 
I] \Maxdetach: 


-ASCI 
P.ADS: .BYTE 
-ASCI 
»ASCII 
-BYTE 


P.ADP: 


F 4 


4C 55 35 21 20 4 7 
74 


4 20 3A 6E€ 6 
3A 6D 75 6D 69 6E 6 
6 69 74 6 
62 6F 6A 
A 6D 6C 6C 


0 3A 73 


1 
30 § 
35 21 20 20 20 20 20 3A 6F 69 72 70 65 75 


44 41 21 $0 3A 6E 6 


2c 29 65 


44 4) 
35 
20 


<c 
ez 


4 
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20 20 20 20 20 3a 45 51 54 20 5 D ; “3 
PANTHER EER pba 
4C 1 A bE 4 E eASCII \tent: !9UL\ : | 

7] 6E 45 20 20 44 41 1 2 aA 55 50 88 OogER MY ASCH: Nepu: 11340. Engl ‘SUL Pgflquo: !\ : : 3 

° $e nqim: : € j 3 : 

f) 85 38 at 8 3 21 20 20 $0 39 20 a, ap 00706 : ricbinamie : : 3 

1 20 A 6F éc : 7 : =f 

-" 3 ; : P.ADZ avee! sguty ; pi 

76 69 72 50 20 64 65 7A 69 72 6F 68 74 75 41 007 z “ASCII \Authorized Privileges: \ : 33 
ORAS HS & F OOPSA P.AEA: BYTE 20 i 

65 6C 69 76 69 72 50 20 74 6C 75 61 $6 65 44 00738 ASCII \Default Privileges: \ : 33 
20 3A 6 67 74A : +t 

0 OO74F P.AEB: .BYTE 0 : ? 

7 8 -BLKB g tj 

4 00750 P.AEC: .BYTE 4 : + 

6— 6F 4D 20 7 } eASCII \ Mon\ 3 2; 

4 00755 P.AED: .BYTE 4 : .; 

65 75 54 20 00756 “ASCII \ Tue\ : ,; 

4 OO75A P.AEE: .BYTE 4 : 3 i 

64 65 57 20 00758 “ASCII \ Wed\ ; t 

4 75— P.AEF: .BYTE 4 3 - 

75 68 54 20 00760 eASCII. \ Thu\ ; .; 

4 00764 P.AEG: .BYTE 4 : 33 

69 72 46 20 00765 “ASCII \ Fri\ : a 

4 00769 P.AEH: .BYTE 4 : 33 

74 61 53 20 76A eASCII \ Sat\ ; gs: 

4 OO76E P.AEIL: .BYTE 4 ; 3 i 

6—E 75 53 20 rer ASCII \ Sun\ 3 : j 

4 773 P.AEJ: .BYTE 4 3 3 3 

20 20 20 20 00774 meen BN : 33 

178 P.AEK: .BYTE 6 ; ; 3 

74 69 64 75 41 77 sASCII \ Audit\ ; 3 

77F P.AEL: .BYTE 8 ; 33 

65 76 69 74 70 61 43 7 <ASCII \ Captive\ : 3 | 

7 00788 P.AEM: .BYTE 7 ; 3 

69 6C 63 66 65 44 20 007 ASCII \ Defcli\ ; 3 

790 P.AEN: .BYTE 8 ; 7 

79 6C 74 63 73 69 44 791 “ASCII \ Disctly\ ; ? 

799 P.AEO: .BYTE 8 ; t 

6C 69 61 6D 73 69 44 79A SASCIT \ Dismail\ ; 7 

8 Ag P.AEP: .BYTE 11 ; ? 

6C 69 61 6D 77 65 6E 73 69 44 7A “ASCII \_Disnewmail\ ; 2 
: 7AE P.AEQ: .BYTE 13 ; 7 

74 63 65 6E€ 6E 6F 63 65 72 73 69 44 7AF eASCII \ Disreconnect\ ; 2; 
A OO7BC P.AER: .BYTE 10 : @ 

74 72 6F 70 65 72 73 69 44 78 eASCII \ Disreport\ 3 2; 

707 P.AES: .BYTE 8 ; 3 

72 65 73 75 73 69 44 7¢ “ASCII \ Disuser\ ; + 

700 P.AET “BYTE 11 ; 2 

65 6D 6F 63 6C 65 77 73 69 44 7D eASCII \ Diswelcome\ 3 : 
70C P.AEU: .BYTE 7 ; .; 

64 77 70 6€ 65 47 7D -ASCII \ Genpwd\ ; § 

7E4 P.AEV: .BYTE 8 ; .; 

64 77 70 6B 63 6F 4C 7E “ASCII = \_Lockpwd\ ; % 

C OO7ED P.AEW: .BYTE 12 ; 3 | 


UAFMAIN 
v04-000 display_full = writes the full user display 


64 65 72 69 70 78 65 SF 64 77 50 20 


sn BRRORUHRRE DBS 


0 


K 4 
tep=1984 18:21:23 DASKSYMGMASTERSCUAF. SRCSUAFMAIN.B32;1°%" (27) 
ASCII ) ,Pudouptred\ ; 


1 

1 

7EE . 

4g. P.AEX: .BYT 

go} ASCII \ Pwd2_expire 
1 


e \ 
P.AEY: ASC \ (Beeceneired) \<0><0><0> 


Bete Se ee 


«PSECT SOWNS,NOEXE,2 
00000000" 00000000" 00000000' 00000000* 00000000' 00000000' 0108C FLAGS_VECTOR: 


-ADDRESS P. EN, P.AEM, P.AEV, P.AEL, P.AES, = P 

00000000" 00000000" 00000000" 00000000' 8 000008 0888008 * Q10A4 P.AET, P.AEP, P.AEO, P.AEU, P.AEW, P.AEX, = ; 

000000' 0000° } ef aKa Bs AEK. P.AER, P.AEQ 3 
USERNAME= P.ACY 
ACCOUNT= P.ACZ 
CLI_TABLE= P.ADA 
DEF AULT= P.ADS 
LGICMD= P.ADC 
FLAGS= P.ADD 
FLAG_PAD= P.ADE 
PRIMBAYS= P.ADF 
SECDAYS= P.ADG 
NORESTRICT= P.ADH 
ACCESSHDR1= P.ADI 
ACCESSHDR2= P.ADJ 
NETACCESS= P.ADK 
BATACCESS= P.ADL 
LOCACCESS= P.ADM 
DIAACCESS= P.ADN 
REMACCESS= P.ADO 
EXPIRATION= P.ADP 
PWODATA= P.ADQ 
LASTLOGIN= P.ADR 
QUOTAI= P.ADS 
QUOTA2= P.ADT 
QUOTA5= P.ADU 
QUOTA4= P.ADV 
QUOTAS= P.ADW 
QUOTA6= P.ADX 
QUOTA7= P.ADY 
PRIVS= P.ADZ 
DEFPRIVS= P.AEA 
NULLSTR= P.AEB 
MON= P.AEC 
TUE= P.AED 
WED= P.AEE 
THU= P.AEF 
FRI= P.AEG 
SAT= P.AEH 
SUN= P.AEI 
NODAY= P.AEJ 

CPUTIME= RE CBUF +556 


-PSECT S$CODES,NOWRT,2 


U 
V 


ez 


UAFMAIN 1b-se Sep-1984 VAX-11 Bliss-32 V 4 
v04-000 display_full = writes the full user display Haat Fi 98: 3: 33 DISKSVMSMASTER: UAE” OsRe UAFMAIN.B32; "? oe 33 
OFFC 00000 DISPLAY FULL: 


. 4 

. WOR 2,R3,R4,R5,R6,R7,RB,R9,R10,R11 3 3548 33 

E off! 9 00002 HOVAB =388 36 PS, $P 1 

06" BLBC STR ty : 3669 # 

0 ' E E MOVAB SATeH TOKEN, R5 + 3670 # 

' — 0001 MOVAB R BUF +4, : + 

00000000' 00 A ¢ LOCC #32. RECBUF +4 + 3669 3: 
om a es ll : t 

0000000 0 MOVL MATCH _TOKENLEN, R4 + 3670 33 

§50900906 ° 8 JSB FMGSMATCH_NAME : 3 3 

g4 7 6 BLBS RO, 1 ; 33 

0 1 B6 HOVE AT, ; 3672 } 

00000000! 99 o1 Dd 6 F 1$: MOVL FOUND hAtcn + 3674 33 
0 00000099" D 46 MOVL tA Abe : : 3 

ns ae : t 

000000006 00 _ oi FB 0082 CALLS #1, SYSSPUT ; ;: 
00000000' v0 100009 ' 00 98 0005 MOVZ2BW USERNAME, FAODSC + 3680 ; i 
00000000" 00 oy 0000° 00 9E 00064 VAB_ -USERNAME+1, FAODSC+4 ; ‘3 
9009000" 00 9F O06F PUSHAB RECBUF +84 F # 

500000 0 9F 00075 PUSHAB RECBUF +4 ; : i 

oooo0000' 0 dF ooore PUSHAB DISDSC : 3 

7 00000000' 2 a 0083 ADDL3 Os RABPTR, -(SP) : : 3 
00000000! F 00088 PUSHAB : i 

000000006 é FB 00091 CALLS #6, SYSS$FAO : 3; 
900000006 09 2200000" OP Oe OO OOr CALLS SY SSPUT ; ; i 
Go009000° 90 90000 00" 0 38 SOAS MOV 2BW ACCOUNTS AODSC + 3685 3:3 
0000000" Og 9000 000° 0 . 0080 MOVAB ACCOUNTS 1. FAODSC +4 : 3:3 
Bb 3g RU, gests, ; : 

D 6 C4 PUSHL R : 33 

00000000' F 000C6 PUSHAB  RECBUFY52 : 3; 3 

00000000" F OO0CE PUSHAB D1SDSC 7 

7E 00000000' 1 00004 ADDL3 AY RABPTR, -(SP) : 31 
00000000' F 0000 PUSHAB FAODSC : 31 

pooonn00s °° 0000000" 90 bb OO0E pUSHL RASPTR' i. 
00 G 1 FB OOOEF ALLS #1, SYS$PUT ; 3 
00 ' ' B Fé MOV2BW CLI TABLE. FAODSC : 3689 3 | 
. . E VAB_  CLITTABLE+1, FAODSC+4 3 3: j 

' F 001 PUSHAB RECBUF+308 : 33 

’ F 001 PUSHAB RECBUF+276 : | 

' F 0011 PUSHAB D1SDSC ; 3 

7E 00000000' a 1 E ADDL3. #34, RABPTR, -(SP) ; .) 
00000000" F 001 PUSHAB FAODSC | 

pooonn0es °° 40000000" 96 bb 901 uSKL RASPIR' +. 
G FB 001 CALLS #1, SYSSPUT ; 2 

' B 001 MOV2BW DEFAULT, FAODSC + 3693 § 

' ' E 168 VAB DEFAULT#1, FAODSC+4 : Si 

' F 0015 PUSHAB RECBUF +146 ; z 

' F 0015¢ PUSHAB RECBUF +11 : 33 
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display_full = writes the full user display 


DDO 81S MMO’ FOF OPMOOF>r DOF WO fFOF FDOT VT MOVWOW— 


aaa ee ee oe Re Tee eee 
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~m 
wr 


ae 
bd 


Pe 
bed 


ou 


rw 


» =(SP) 


FAODSC 

1, FAODSC+4 
{2 

ABPTR, =-(SP) 
S$FAO 


S$PUT 


+ 8. a3 
AGS_VECTORCJJ, FLAG_STRING 
Gs ee R8 


PAD, R8 
FLAG PAD#1, STRINGCCOUNTI 
R8), LCOUNT 
AG STRING), RO 

TFLAG STRING), 
AG_STRING), RO 


UNT 
AG STRING) RO 
LCOUN 


STRINGCCOUNT) 


>. 
So 
Suns 
n@w- 


C 
1, FAODSC+4 


ABPTR, =(SP) 


PUT 
1 gf AOD 


o-<<—m 


* > P<D<Owo O+yVR 
DWDMWe 
oS 


<wDooN-muN =wAZM 


6 
SUN, RO 
a ARECBUF S14, 7$ 
Nobat 
8 
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display_full - writes 


09 00000000' 
09 00000000' 
09 00000000' 


09 00000000" 


7E 00000000' 
000000006 


90000000" 
Bap 000° 
09 000000 


00 
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00 
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09 00000000' 
09 00000000' 


09 00000000' 


09 00000000' 


the full user display 


50 00000000' 


8 00000000’ 
50 00000000' 


i 00000000' 
50 00000000' 


0 
i 00000000" 
50 00000000' 


0 
i 00000000' 
50 00000000' 


50 00000000" 


50 00000000' 
00000000' 
00000000' 

9 00000000' 

B sone: 

80 00000000' 
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SAT, RO 
f RECBUF +514, 9$ 
NODAY, R 


pRI, RO 
#3, RECBUF+514, 
NODAY, RO 


— 


1$ 


THU, RO 
8 RECBUF +514, 13$ 
ODAY, R 


yi. 


#1, RECBUF+514, 
NODAY, RO 


— 


5$ 
TUE, RO 

RO 

RECBUF +514, 17$ 
WODAY. RO 

MON, RO 


DI sDs¢ 
#34 RABPTR, -(SP) 
#10, SYSSFAO 
RABPTR 

#1, SYS$PUT 
SECDAYS, FAODSC 
SECDAYS#1 FAODSC+4 
#6, RECBUF+514, 19$ 
UN, RO 
ca RO 
RECBUF+514, 218 
Al. RO 


25 


7" RO 
RECBUF+514, 238 
Ri. RO 


DAY, RO 
e RE cour +914, 25$ 
R 


: 
68" 
: 


DAY, RO 


N 
4 
R 
#2, RECBUF+514, 27$ 
6, RO 


P 


29° (275 
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display_full - writes 
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000000006 
44 444 G 
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00000000' 
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000000006 
000000006 


00000000Vv 


00000000Vv 


the full user display 


50 00000000 


3 00000000' 
50 00000000' 
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50 00000000' 
00000000° 
00000000' 
00000000' 


00000000° 
0 00000000' 
00 6° 00000' 
00 00000000' 
00000000' 
00000000° 
00000000° 


Sse 
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, Sei 
bis 
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SOMOONMOO—OWONOOO " OQWONOOC0OW'OWOnNo0c[0cdg®g —— 


VHUVIMO OOO - "MOVIN - DOO" "MOVIL vw -WOW 7 OM Mm OOMm—om— 


SOOOoOoOoooooooooooooooooooooooo 
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1986 98:29:23 DISkSumSMASTERSCUAF SRCIUAFMAIN.832:1°%° (2?) 


28$ 
o RO 


# ay | achat 29$ 
oR 


NODAY, RO 
RECBUF +514, 31$ 
M RO 


NODAY, RO 


DIsDs¢ 

#34 RABPTR, -(SP) 
#10, SYSSFAO 
RABPTR 

#1, SYSS$PUT 


#34, RABPTR, R2 
#0 #30, RECBUF+472 
38 


R1 

34$ 

NORESTRICT, FAODSC 
NORESTRICT#+1, FAODSC+4 
DISDSC 

FAODSC 

#3, SYSSFAO 

RABPTR 

#1, SYSS$PUT 

35§ 

ACCESSHDR1, FAODSC 
ACCESSHDR1+1, FAODSC+4 
DIsDse 

R 

FAODSC 

#3, SYSSFAO 

RABPTR 

#1, SYSS$PUT 
ACCESSHDR2, FAODSC 
ACCESSHDR2+1, FAODSC+4 
DI sost 

#34, RABPTR, -(SP) 
FAODSC 

#3, SYSSFAO 

RABPTR 

#1, SYSS$PUT 

RECBUF +47 
NETACCESS 

g DISPLAY HOURS 
RECBUF +478 
BATACCESS 


#2 DISPLAY _HOURS 
RECBUF +484 


POS Se Se Se Oe Se Se Se Se Se Se Be Se Se Be Be Be Se Be Se Se Bs Se Se Se Se Se Se Se Be Be Se Be Be Se Be Be Be Se Se Se Ss Se Se Se Se Be Se Se Se Se Se Se Be Bee 


5 
UAFMAIN 1b-5e =1984 2:16:54 VAX-11 Bliss=-32 V4.0-74 Page 1 UAF 
v04-000 display_full = writes the full user display 1 730071382 96:39:35 DISKSVMSMASTERSCUAR SRCIUAFMAIN.832;1 " 3 v04 
00000000' 9F 00549 PUSHAB LOCACCESS F : 
00000000v 00 FB O054F CALLS @# DISPLAY HOURS : ; 
99990000" 3 26 PUSHAB RECBUF +490 : 3754 ; 
0000' F PUSHAB DIAACCESS ; : 
00000000v 00 FB CALLS # DISPLAY HOURS : ; 
99000000" 3 PUSHAB RECBUF +496 + 3755 ; 
0 ' F F PUSHAB REMACCESS : : 
00000000v 00 FB 5 CALLS #2, DISPLAY_HOURS ; ; 
28 AF 9F 0057C 35$:  PUSHAB TIME1 + 3758 ; 
1 pp 57F PUSHL #17 : ; 
00000000' F 1 PUSHAB RE CBUF +364 ; ; 
9000000y 0 FB 7 ALLS #3, CONVERT_TIME : : 
0000000' 0 ' 98 MOVZBW EXPIRATION, ~FAODSC : 3762 ; 
0000000" 00 ' E 005 OVAB EXPIRAT ONé1 FAODSC+4 : ; 
E ' ¢ DAG MOVZWL RECBUF+ $. =(SP) : ; 
7E ' A 005A MOV ZBL RECBUF+ 62, =(SP) : : 
AF 9F 0058 USHAB TIME : ; 
11 DD 0058 PUSHL #17 : ; 
00000000° 9F 00587 PUSHAB DISDs¢ : ; 
7E 00000000° c 0580 ADDL3 #34, RABPTR, -(SP) : : 
00000000' F 005¢ PUSHAB FA : ; 
000000006 00 FB 005C¢ CALLS #7, SYSSFAO : ; 
00000000' 00 DD 0050 PUSHL TR : : 
000000006 00 1 FB 005D CALLS #1, SYS$PUT : ; 
28 «AE OF 005DF PUSHAB TIME} + 3764 ; 
OA DD 005E2 PUSHL #10 : ; 
00000000' : OF O05E4 PUSHAB RECBUF +37 : ; 
00000000v 00 03 FB OOSEA CALLS # CONVERT. TIME : ; 
50 00000000' 00 9€ 005F1 MOVAB RECBUF +380, ~PT : 3765 ; 
FFFFFFFF 8F $9 Di OOSF8 CMPL (PTR), #=1 ; 3766 3 
15 12 OOSFF BNEG 36$ : : 
L PTR), &- ; : 
FFFFFFFF 8F 04 f ont SNES + tpg #-1 : 
14 AE 00000000' 00 i 25 9608 mOVCS ang P.AEY, TIME2 : 3767 ; 
14 AE 9F 00616 36$:  PUSHAB TIME2 : 3769 ; 
11 DD 00619 PUSHL #17 : : 
30 DD 00618 PUSHL PTR : : 
00000000v 00 g FB 00610 CALLS #3, CONVERT_TIME : ; 
i DD 00624 37$:  PUSHL SP : 3770 ; 
1 D 006 g PUSHL 3 3 
00000000' 9 F 006 PUSHAB RECBUF+ : ; 
000000v 00 FB 006 CALLS #3, CONVERT_TIME ; : 
909 9 ' 0 90000000" 6 B 6 MOVZBW PWODATA, FAODSC : 3776 ; 
' , E MOVAB PWDDATA+1, FAODSC+4 : ; 
: D 48 PUSHL SP : ; 
50 00000000' 00 00000000' i ‘ 4p BIS RECBUF +392, RECBUF +388, RO ; ; 
B CLRL =(SP) : ; 
0 1 D BRB 398 : ; 
D f 383: PUSHL #1 : ; 
1C AF F 1 39$: PUSH TIME2 : ; 
11 DD PUSHL #17 : ; 
38 AE OOF US TIME! : ; 
A ) SHL #10 3 $ 
00000000' : F PUSHAB D | SDs¢ : ; 
7E 00000000' 00 C1 ADDL3 #34, RABPTR, -(SP) : : 


5 
UAFMAIN Ib-se -1984 02:16:54 VAX=11 Bliss-32 v4.0-74 Page 139 AF 
¥04-000 display_full = writes the full user display 1 730071382 96:39:33 DLSKSVMSMASTERSLUAF SRCSUAFMAIN.B32s1 . 3 v04 
00000000" 9F 00679 PUSHAB FAODSC ; 24 
000000006 00 seneecee’ FB 7F CALLS We spate AO ; : ; 
000000006 00 FB CALLS #1, SYSSPUT : 3 4 
28 «AE OOF PUSHAB Hae} : 3778 3 4 
‘ bp PUSHL #17 : 3 4 
00000000' 30 7 PUSHAB Rg CRUE S396 ; : 4 
00000000v 00 « 8 hI CALLS ’ ae sONVERT.TIME 3 syre . ; 
if po A PUSHL Wy : 3 4 
00000000" F OO6AA PUSHAB RE CBUF +404 : 7 4 
90000 oy FB 980 ALLS #3, CONVERT TIME ; sf 
6 09 99000000" 98 0068 MOVZBW LASTLOGIN, FAODSC ; 3782 a3 
00000000 000000" 00 3E C2 MOVAB LASTLOGINA1, FAODSC+4 : 4 
11 DD 006D PUSHL #17 : : 4 
30 OA OF 6D PUSHAB TIME1 : 3; 4 
rf DD 006D PUSHL #17 : 3 4 
00000000' 9F 006D PUSHAB DISDSC : : 4 
7E 00000000° cea. ; ! 600 ADDL S » 4. RABPTR, =(SP) ; ; ‘ 
000000006 . a FB Oct CALLS #7, SYSSFAO ; : é 
000000006 00 ee 1 PB O6F CALLS #1, SYSSPUT : : 4 
obtener vg 09 00000000" 90 £9 09708 aiee’ cporings toh : 3586 i 4 
30 FFFET9CO. BF D6 a9 MOVL #-1000 6, RO : é 
pA 0 a8 40$:  CLRL RO : 3; 4 
3c AE 50 S1 FFFCF2CO BF 7A ay 41$: MUL #200000, R1, RO, DELTA_TIME ; 3784 ; ‘ 
” 05 44 091 7 PUSH re : 7 4 
90000000y 00 * O08 fe i ¢ CALLS, AS, CONVERT. TIME i 
90000000" 09 9 0 ' 98 007 5 MOVZBW QUOTA1, FAOBSC : 3791 3 4 
0000000° ' 9— 007 : OV QUOTA14+1, FAODSC+4 : 3; 4 
y D 0074 USHL RECBUF +360 : 7 4 
7E ' C 0074F MOVZWL RE CBUF +5 6. -(SP) : 3 4 
7E ' ¢ 136 MOVZWL RECBUF+518, -(SP) : 7 4 
0 ’ F 007 p PUSHAB DI sDs¢ : : 4 
7E 00000000" 00 cael ! i ADDL #34. RABPTR, (SP) ; 3 ‘ 
000000006 00 FB 168 CALLS #6, SYSSFAO : 3 4 
00000000° 6 DD 108 PUSHL PT : : 4 
G FB 007 ( CALLS #1, SYS$PUT ; 3 4 
09900000. 09 0° 98 183 MOV7BW QUOTAS. FAODSC : 3796 : 4 
' ' 9€ 007 MOVAB QUOTA2+1, FAODSC+4 : 3 4 
' D 007 PUSHL RECBUF+564 : 3 4 
7E ' C OO7A MOVZWL RECBUF+ g. -(SP) : 3 4 
7E , € 007 MOVZWL RECBUF+520. =(SP) : 3 4 
' F OO7AF PUSHAB Di DSC ; 3 4 
7E 00000000' 1 00785 ADDL3 #34, RABPTR, -(SP) : t 4 
00000000' SF 7B PUSHAB FAODSC : 7 4 
000000006 ennai FB is CALLS #6, SYSSFAO ; ‘ 
900000006 90 1 FB 200 CALLS #1, SYSSPUT ; > 4 
00000000' 00 98 007D MOVZBW QUOTAS, FAODSC > 3801 > 4 


5 

UAFMAIN 1b-se -1984 02:16:54 VAX=11 Bliss-32 V4.0-74 P 40 

v04-0 display_full = writes the full user display 1 ~3007 138% 06:30:38 DISKSVMSMASTER: CUAF .SRC UAFMAIN.B3231° 9" (2?) 
00000000" 00 ' 9 00762 MOVAB QUOTA3+1, FAODSC+4 ; 2 4 
' D ZED PUSHL RECBUF+ : : 4 
7E . C 7F MOVZWL RECBUF+ , @(SP) : 3 4 
7 S888: 83 Seat RIE aputtbees =P ; t 
7E 00000000' g or ADDL3 O43 RABPTR, -(SP) : 7 4 
00000000' F F PUSHAB FAODSC ; 2 4 
000000006 FB 00815 CALLS #6, SYSS$FAO : 3: 4 
00000000' DD 0081 PUSHL RABPTR : : 4 
900000006 0 FB Ls #1 ; : 4 
0000000' 0 ' B MOV2BW QUOTAS, FAODSC + 3806 3 4 
0000000 ' 9E 4 MOVAB QUOTAS#] FAODSC+4 : 3; 4 
y D F PUSHL RECBUF +544 : 3 4 
7E ' C 00845 MOVZWL RECBUF +28, -(SP) : : 4 
7E . C 4 MOVZWL RECBUF+524, -(SP) : 3 4 
00000' F 0 5 PUSHAB DISDS¢ : : 4 
7E 00000000' 00 c 5 ADDL3 #34, RABPTR, -(SP) : 3: 4 
00000000' F 00861 PUSHAB FAODS : 7 4 
000000006 : FB 00867 CALLS #6, SYSSFAO : | 3 4 
00000000' DD gE PUSHL : : 4 
000000006 00 1 FB 0 4 CALLS #1, SYSS$PUT : 3 4 
90000000" 00 00 00 0" 0 98 00878 MOVZ2BW QUOTAS, FAODSC + 3811 : 4 
00000000' 0000' 9E 00886 MOVAB QUOTA5+1, FAODSC+4 : 3: 4 
6 00 " 00 oD 00891 PUSHL RECBUF+54 : 3; 4 
7E 0000' C 00897 MOVZWL RECBUF+532, -(SP) : 3 4 
7E 900090 ' A 00 H MOVZBL RECBUF+516, -(SP) : > 4 
000000' SF OOBA PUSHAB AY ate : 7 4 
7E 00000000' 00 C1 00 AB ADDL3 #34, RABPTR, -(SP) : 3; 4 
00000000' SF 008B PUSHAB FAO : 3 4 
000000006 t FB 0889 CALLS #6, SYSSFAO : 3: 4 
00000000' DD 008C PUSHL RAB : : 4 
000000006 1 FB O8C6 ALLS #1, SYS$ : : 4 
00000000' 00 00000000' 00 98 008CD MOVZBW QUOTAS. FAODSC : 3816 3; 4 
00000000" 00 9000 0 ‘ 9E 00 08 OV QUOTA6+1, FAODSC+4 : : 4 
' D 0 E PUSHL RECBUF+54 ; ; 4 
7E 00000000' C 008E9 MOVZWL RECBUF+530, -(SP) : 3; 4 
7E 6 ' A 00 FO MOVZBL RECBUF+517, -(SP) : 3 4 
00000" OF OOBF PUSHAB DISDSC : 3 4 
7E 00000000' gl fe ADDL3 #34, RABPTR, -(SP) $ 3 4 
00000000' F 009 PUSHAB FAODSC : : 4 
000000006 6 FB 009 CALLS #6, SYSSFAO : : 4 
00000000' DD 0091 PUSHL RABPTR : : 4 
000 0G 1 FB 91 CALLS #1, SYSSPUT $ 3; 4 
900 % 0 ' 38 git MOVZ2BW QUOTA7, FAODSC + 3821 : 4 
. ’ E A MOVAB QUOTA7+1, FAODSC+4 3 3; 4 
6 ' D 00935 PUSHL RECBUF+ ; : 3: 4 
7E ' C 009 MOVZUL RECBUF¢ , =(SP) : 3 4 
AE OF 34 PUSHAB TIME : 3: 4 
pp 4 PUSHL : 3 4 
00000000' F 0094 PUSH D1 Sps¢ ; 3; 4 
7E 00000000' 1 240 ADDL3 #34, RABPTR, -(SP) : 3 4 
00000000' F 99 PUSHAB : 3 4 
000000006 0 FB 009 CALLS #7, SYSSFAO ; 3 4 
00000000' 9 DD 009 PUSHL RABPTR : 3 4 
G FB CALLS #1, SYSSPUT : i 4 
99900000" 6 38 F MOV2BW PRIVS, FAODSC + 3823 3 4 
° ° E A MOVAB PRIVS+1, FAODSC+4 3 3 4 


VOurd display_full = writes the full user display 127868-1 382 96:39:33 tedium neh Aeten Uae se se UAFMAIN.B32; ? oe 3) 


00000000' oF 5 PUSHAB DISDSC : 

7E 00000000! g 3 ADDL3 4s RABPTR, (SP) : 

00000000' F PUSHAB : 

000000006 00 FB CALLS #3, SYS$FAO ; 

00000000' DD 009A PUSHL RABPTR : 

000000006 00 FB OO9A CALL 1, SYS$PUT : 
00000000' 0 oF ap PUSHAB REC +41 + 3824 

8 V FB B aube § PRINT_PRIV $ 
' ' B OOSBA MOV2BW DEFPRIVS, ~"FAODSC + 3826 

000° . E 154 VAB_ DEFPRIVS+1, FAODSC+4 3 

' F 0090 PUSHAB D1 SDs¢ F 

7E 00000000" gi 906 ADDL3 #34, RABPTR, -(SP) : 

00000000' F dE PUSHAB FAODSC ; 

000000006 00 FB O09E CALLS #3, SYS$FAO ; 

00000000' DD EB PUSHL RABPTR : 

000000006 00 1 FB O09F CALLS #1, SYS$PUT : 
00000000' 00 9F 009F8 PUSHAB RE CBUF +42 : 3827 

00000000v 00 1 FB Fe CALLS #1, PRINT PRIV : 
18 00000000' 00 € a0 LBC  RDB_EXISTS, 42 + 3833 
000000006 0 0 FB OAd¢ CALLS #0, UAF SBUILD HOLDER : 3836 
000000006 00 1 90 00A1 OVB #1, RDB_HEADER_FLAG : 3837 
000000006 00 9F OOAIA PUSHAB HOL > 3838 

000000006 00 01 FB 0420 CALLS #1, UAFSWRITE_RIGHTS : 


0 
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; Routine Size: 2600 bytes, Routine Base: $CODE$S + 16CD 
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1 Xsbttl ‘display hours - display hourly restrictions’ 
1 — display_hours (format_string, hour_vector) : novalue = 


'e+ 
i 


| FUNCTIONAL DESCRIPTION: 


Displays the hourly access for primary and secondary days 
for one access type. 


INPUTS: 
TOrORE REV ING: ederece Of Ae eer ine for display 
RRBPTATS'RAS date'strccture forthe Nile” “eee 
IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
none 
SIDE EFFECTS: 
none 


' 
: Display strings. 


hour_vector : ref bitvector; 
literal 


yeschar = ‘A, 

nochar ae %e*; 
bind 

noaccess = cstring ('=---- No access ------ 4 

fullaccess = cstring ('####e# Full access ##Aeee'); 
local 

pri_access : vector ere byte], 

sec_access : vector 


-0-74 Page 
« SRC JUAFMAIN.B32;1 ( 


' Character string for primary access 
4, bytel; ! Character string for secondary access 


cf 5 
UAFMAIN e 4 VAX-11 Bliss-32 V4.0- 43 
v04-0 display_hours = display hourly restrictions 12: He 1386 98: 38: 33 DISKSVMSMASTER: UAE SRCSUAFMAIN, B32; 430 (28) 


3 § 9 9 if. (hou ur aver serlol 60.26 26> eg 
3 8 then n gnén ove Lasces as ELL 
3 4 hour vector > eql fffff' 
: 5 9 ad a. e (28, snoacgesset seh ie access) 
3 § 2 : else incr j from 0 
: 38 9 
; 38 § 9 ; begin -hour_vector 
; 3840 9 then pri_access = nochar 
: 3841 90 eise pri_access = yeschar; 
3 sc8 4 end; 
3 a 3H if . (hour <vec orto) ses. 24> gal 0 
: ate 91 then ch$move ( lags +1, sec_access) 
3 re 914 else if . Grout bates 1<86, 84 84> > egl Xx'ffffff' 
3; 384 915 then ch$move ° gh eeeggee*  S@C_access) 
; 3848 218 else incr one's 
3; 3849 91 do 
; 3850 318 beg 
3; 3851 91 it? 5 Hep vector oes 
3 £36 920 then sec “access = nochar 
; 385 921 o\ee sec_access = yeschar; 
3 see : § end; 
; 3855 
3 $28 P 3924 faomac (.format_string, 
; 385 P 3925 » pri_access, 
; 3858 P 3926 4, sec_access 
3; 3859 927 ); 
3; 3860 928 1 end; 
-PSECT SPLITS,NOWRT,NOEXE,2 
18 Sete P.AEZ: .BYTE 24 3 
73 65 63 63 61 20 6F 4E 0 2D 4 3 $p § 0810 ASCII] \ee--- No access ------ \ 3 
2D 2D D 2d 0 08 f 3 
65 63 63 61 20 6C 6C 75 008 Pear ae eeti Gawwen Full PYTTTN : 
“ ull access $ 
8§ 8 ‘ 33 33 33 35 93 $8 ose 
NOACCESS= P.AEZ 
FULLACCESS= P.AFA 


.PSECT S$CODES,NOWRT,2 
01FC 00000 DISPLAY_HOURS: 
. WORD 


Save R2,R3, ms. R5,R6,R7,R8 3; 3844 

9000 si 9E MOVAB FULLACCESS+1, RB° : 

0 9 MOV FAODSC. R : 

C 1 SUBL2 #4 ; 
6 AC D 1 MOVL HOUR YECTOR RG : 3900 

00 bb 1 it 1? CMPZV ’ » B24, (RO), 
18 AE 68 : 3 MOVC3 #24, FULLACCESS+1, PRI_ACCESS : 3901 

2 2 BRB 6 ; 


UAFMAIN 16-0 Sep-1984 VAX-11 Bliss-32 V4.0-7 44 
v04-000 display_hours - display hourly restrictions Haat yi 9¢: 3: 3 DISKSVMSMASTER: CUAF. she UAFMAIN.B32;1 page 8) 


OOFFFFFF  8F 66 18 t 5 1$: CMPZV #0, #24, (R6), #16777215 ; 3902 
18 AE E7 AB : MOVES ’ 4, NOACCESS+1, PRI_ACCESS + 3903 
D4 $: CLRL Jd + 3904 
07 66 1 A § BBC J : 33 7 
18 AE4 o ‘ nove Hs, wy _AeCESSEVI : 3908 
18 AE4O 29 4 48: MOVB sof 5. PRI_ACCESSCJ] + 3909 
EC 5 F 4A 5$: AOBLEQ #23, + 3904 
50 66 1 18 FE 4E 6$: EXTZV 4 4; #24, (R6), RO : 3912 
6E 68 ° 24 ; MOVs H 4. FULLACCESS+1, SEC_ACCESS + 3913 
OOFFFFFF 8F § D| 58 7$ CPL RO. #16777215 + 3914 
6£ E7 AB 1 25 064 MOVC3 #24, NOACCESS+1, SEC_ACCESS + 3915 
18 11 00069 BRB 12$ ; 
5 ps 0 B 8s CLRL : : 3916 
51 18 AO F D 9$ MOVAB 24(RO) RI : 3919 
06 66 51 : 0071 BBC R1, (RO), ; 
6E40 gD 0 0073 MOVB RAs, SEC t accessCu) + 3920 
4 11 00079 BRB 11$ ; 
6E40 23 99 0078 10$: § MOVB #33. § SEC ACcessCJ3 + 3921 
EA 50 17 F O07F 11$: AOBLEQ #2 : 3916 
67 04 BC 9B 00083 12$: mov 7B SF ofnat STRING FAODSC : 3927 
04 A? 04 AC 1 C1 00087 ADDL “" » FORMAT_STRING, FAODSC+4 : 
; DD 0008D PUSHL ; 
1 pp O08F PUSHL $b, ; 
20 AE F 00091 PUSHAB PRI_ACCESS : 
18 DD 00094 PUSHL #24 ; 
FB OA? OOF 0096 PUSHAB DISDSC : 
7E 08 a7 28 C1 000 ADDL3 #34, RABPTR, -(SP) : 
DD 0009 PUSHL : 
000000006 00 “ 07 FB aBh CALLS #7, SYSS$FAO ; 
000000006 00 01 FB OOOAA CALLS #1, SYSS$PUT ; 
04 Sooet RET : 3928 


3; Routine Size: 178 bytes, Routine Base: S$CODE$ + 20F5 
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convert_time = convert time value to string 


tarry 


DOOODODOOOOOODOOOOOOVODOOOOOOOO 
DADAM BEEP 
OOO NAME AN 
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144 


FUNCTIONAL DESCRIPTION: 


the string “' (none 
INPUTS: 
time: address of quadword time 


IMPLICIT INPUTS: 


none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
none 
SIDE EFFECTS: 
a none 
on time : ref vector; 
local 
string_desc : vector (2); 


if (.timel0O] or .timel1]) eql 0 
then 


begin 

ch$fill (° °, .length-6, buffer); 
chenove (6, uplit yte (*inone)')* 
en 


else 


beg 
stleg ene x enh 


Sasctia (ti madr = sbuf ler: * eimbuf = string_desc); 


end; 


soa aid: 58 


Bebtyl "convert_time = convert time value to string’ 
ne convert_time (time, length, buffer) : 


TER: UAE she UAFMAIN.B32; 1 


Converts the binary, time value into a string, substituting 
"if the value is zero. 


Length: length of output string 
buffer: address of output buffer 


! descriptor for buffer 


-buffer+.length-6); 
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UAFMAIN 16-Sep-1984 02:16: VAX=11 Bliss-32 V4.0-74 P 4 
v04-000 convert_time = convert time value to string 12280871383 96:39:33 DL SKSVMGHAS TERS CUAF SRCTUAFMAIN.B32:1°%" (295, 
; 3919 3986 1 end; 
.PSECT $PLIT$,NOWRT,NOEXE,2 
29 65 6E 6F 6€ 28 OO84E P.AFB: .ASCII \(none)\ ; 
.EXTRN SYSSASCTIM 
-PSECT $CODES,NOWRT,2 
007C 00000 CONVERT_TIME: 
WORD save R2,R3,R4,R5,R6 : 3930 
5 08 C 9002 SUBL2 #8, SP : 
6 04 AC 00 00 6 MOVL. TIME, R6 : 3973 
50 66 04 a6 C9 00009 BISL3 4(R6S, (R6), RO : 
1C ig 00 BNEG 1$ : 
50 08 ac 06 s 1 SUBL 3 #6, LENGTH, RO + 3976 
50 20 6E£ oe. o C 6 13 movcS #0. (SP), #32, RO, @BUFFER : 
50 0c AC 08 ac C1 O01¢ ADDL LENGTH BUFFER, RO + 3977 
FA AO 00000000' 00 06 28 000 MOVC3 #6, P.AFB, -6(RO) : 
4 990 B ET : 3973 
6E 08 AC 7D 0002C 18: MOVQ LENGTH, STRING_DESC : 3982 
ze D4 909 CLRL = = (SP) : 3984 
5 pp 00 PUSHL R6 ; 
08 AE 9F 00034 PUSHAB STRING_DESC : 
7E D4 00037 CLRL = =( SP) : 
000000006 00 04 FB 00039 CALLS #4, SYSSASCTIM ; 
04 00040 RET : 3986 


; Routine Size: 65 bytes, Routine Base: SCODE$ + 21A7 


—ea ee eS HR HS KKK KR KKK KKK KRHA H LHRH LR KR E Rh eeEEL EL H & &— E — 


“atte (symmin = , (.pointer)<0,8>) neq 0 ! pick up min symbol size 
() 
begin 


rrvibat ts 16- Sep-1984 VAX-11 Bliss-32 V4. - 
000 print_priv - print privilege bits Haat fi 96 39:33 DISKSVMSMASTER: VAR” she UAF MAIN.B32; a 9° 45 

: 3921 987 1 Xsbttl ‘print_priv - print privilege bits' 

; 39 § 9 5 routine print” Briy terveer)’ nova ue = 

3952 359 5 Pesin 

: 909 991 +4 

: 39 5 398 FUNCTIONAL DESCRIPTION: 

; 3928 994 i 

: 3929 995 i Routine to output the names of the privilege bits set 

; ; » 44 in the privilege vector supplied. ste Spin 

i: 3936 998 ¢ | INPUTS: 

; : : t's PRVADR = Address of the privilege vector 

i 3936 400¢ g | IMPLICIT INPUTS: 

; Ba6 tRRe PRVSAB_NAMES = table of privilege names and bit numbers 

: 940 400 OUTPUTS: 

re 

; 344 4010 IMPLICIT OUTPUTS: 

fp BP) om 

; 948 4014 ROUTINE VALUE: 

: 3390 Bie sj ans 

; 93¢ 4018 SIDE EFFECTS: 

> 3954 4020 i none 

Be HBL. 

: 3957 40 

3 3955 4024 local 

3; 3959 4025 pointer, ' current location in peysas NAMES 

3; 3960 40 § prvcnt, ! nuaber of names in DISBUF 

3; 3961 40 symlen, ' Length of bit name string 

3 308 $8 8 symmin, ! ate mum yadot Length 

: 96 ? 3 symval; ! yalue (bit number) 

; 368 t0 oe 

: 308 ? § Initialize the buffer. 

; 3968 4 ; | 

3 9 4035 disbuf =‘ '; ! insert blank at start 

; 39 4 § prvcnt = 0; 

3; 397 4 prvent = Oi rsz) = 1; 

3 376 ? 3 pointer = prv$ab_ names; ! point to symbol name table 

: 3974 4 

; 4 

H 4 


wr 


Fe 


mM 5 
UAF MAIN 16-Sep-1984 VAX-11 s-32 V Page 148 
v04-000 print priv - print privilege bits 14-$ 300-1 3k 96: 3§ 33 DISK$V nen TER: VAR” she UAFMAIN.B32;1 . (30) 
H 4044 ! 
3 4045 ! Pick ¥ the ae bit name and rusber. If the bit is set, insert 
H 4 $ ! the bit name into the buffer. hen the buffer fills up output them 
3 404 ' to the user. 
; the : 
3 404 
; 405 pointer = .pointer + 
: 4051 symval =. (, ointer)<b, 8>; ! get bit number 
3 4 26 pointer = .pointer 
3 405 symlen = . (.po nter) <b, 8>; ' get name string Length 
3 4054 ointer = * point er +1; i point to string 
3 tbee '«% prye yodr)<. <. synval 1> 
; 4 $ AND CHS EQ(.S ~POINTER, 7, UPLIT(*UPGRADE')) lee 
; 405 AND CHSNEQ( SM LEN, .POINTER, 9, UPLIT('DOWNGRADE')) lew 
; 4058 AND CHSNEQ(  SYMLEN, POINTER, 6, UPLIT(' TMPJNL *)) lee 
3 4059 AND CHSNEQ(.SYMLEN, .POINTER, 6, UPLIT('PRMJNL')) lee 
3 4060 then 
; 4061 4 begin 
: 1066 4 
; 4065 4! 
3 4064 4 ! Bit is set. See if there's room in the buffer and insert it if so, 
3 4065 4 ! else output the buffer and start from scratch. 
; 4066 4! 
; 4067 4 
3 4068 4 if .rabptrCrab$w_rsz) + .symlen geq 64 
3 4069 4 then 
3 4070 5 begin 
3 4071 5 $put (rab = .rabptr); 
: 1076 : prvcnt = 
3 407 PabptrLrab$w_ rsz] = 1; 
s 4074 4 end; 
; 4075 4 
; $078 4! 
3 4011 4077 4 ! Insert a blank and append symbol name. 
; ret} rath 4! 
3; 401 4079 4 
3 4014 4080 4 Stebutt. -rabptrCrab$w_rsz]) = Xchar (' "3 
3; 4015 4081 4 repetr rab$w_rsz] = srabptrCrabsu, pes) © 
3 4016 rest) 4 ch$m ove (.symlen .pointer, d disbufl Fabpertrabs. rs2))); 
3 4017 4085 4 paket? rabSw_ rszj) = .rabptrCrab$w_ rsz 
3; 4018 rest) 6 prvcnt = .prvcnt + 1; '“one more Tone "te buffer 
3 ret 4 ret Fs end; 
3; 4021 4 5 pointer = .pointer + .symlen; ! update table pointer over name 
3 40 ; 4088 nd; 
3; 40 4089 
3: 4024 tts ! 
3 rt 5 ? + : Table used up. If anything is in the buffer, print it. 
3 rt 4 38 
3; 4028 4094 if .prvent gtr 0 
3; 4029 4095 then $put (rab = .rabptr); 
:; 4030 409 
3; 4031 409 end; 


,? R. 
UAFMAIN e VAX-11 Bliss-32 V4.0-7 49 
v04-000 print_priv - print privilege bits 18: He 1386 96 if 33 DISKSVMSMASTER: CUAF. se UAFMAIN.B32; 420 off 0) 
-PSECT S$PLITS,NOWRT,NOEXE,2 

00 45 44 41 52 47 50 55 4 P.AFC: .ASCII \UPGRADE\<0> : 

00 00 00 45 44 41 52 a} 4E 57 4F 44 : P.AFD: .ASCII \DOWNGRADE\< Baye eye : 

88 88 4C 4—E 4A 50 $8 28 3 § P.AFE: .ASCII \TMPJNL\< O<0> 3 

4C 4E 4A 4D 5 0 P.AFF: .ASCII \PRMJNE\< > : 


.PSECT S$CODES,NOWRT,2 
OFFC 00000 PRINT_PRIV: 
ORD 


.W Save R2, R3,R4,R5,R6,R7,RB,R9,R10,R11 ; 398 ; 
00000000" 00 29 po 00002 ov AZ) BUF : 2588 : 
D4 CLRL = PRV + 4036 ; 
50 00000000' 00 pO 0000 MOVL pavent RO + 4037 ; 
22 =A 1 80 1 MOVW #1, 34(RO : ; 
OV PRVSAB NAME POINTER + 40 ; 
57 000000006 — 0001 $ 38 
58 6 7A 0 1D 1$ MOV ZBL (POINTER) . SYMMIN + 4040 ; 
0098 if 99 RW 5% : ; 
7 D6 0 2$: NCL POINTER + 4050 ; 
SA 7 A 0 MOVZBL seri Ntaates SYMVAL ; 4051 $ 
«5B 7 OA 00 A MOVZBL (POINTER)+, SYMLEN + 4053 ; 
03 Oo BC A €0 000 BBS SyAVA , @PRVADR, 3$ + 4055 : 
0082 31 00 BRW § : ; 
07 00 67 coeemeel 58 20 00 3 3$ CMPCS SYMLEN, (POINTER), #0, #7, P.AFC + 4056 3 
re 13 0003 BEQL =sSSSS ; ; 
09 00 ? aaientl 38 20 004) CMPCS SYMLEN, (POINTER), #0, #9, P.AFD + 4057 : 
+ 13 00048 BEQL 5$ : ; 
06 00 ? saaadaal 38 20 a3? CMPCS SYMLEN, (POINTER), #0, #6, P.AFE > 4058 : 
ee 13 05 BEQL 5$ ; ; 
06 00 7 2D 00059 CMPCS SYMLEN, (POINTER), #0, #6, P.AFF ; 4059 3 
00000000' Q m 20086 atte ott ; : 
50 00000099" 0 p0 i OVL § RABPTR, RO : 4068 ; 
51 A ¢ 0 6 MOVZWL 34(RO). RI ; ; 
2 C ADDL2 SYMLEN, R1 3 3 
F 1 b 7 CMPL R11, #63 ; ; 
1 7 LEQ 4 3 3 
bd , PUSHL R > 4071 ; 
000000006 00 FB A CALLS #1, SYSS$PUT ; ; 
50 00000000" $0 6 90083 ROVE = RABPTR, RO : tor 
22 «A 1 80 A MOV) sot tag) ; ; 
5 00000099" 0 4$ MOVL RABPTR, RO + 4080 ; 
6 Ae RE 0009 Movie. inane hor” ; : 
00000000' 004 : 6 ¢ MOVE #32, DISBUFCRO) ; ; 
A INCW = (ROS > 4081 ; 
50 Ag MOVZWL (R6), RO + 4082 ; 
00000000'0040 é MOVCS  SYMLEN, (POINTER), DISBUFCROJ ; ; 
66 A : ADDW2  SYMLEN, (R6) > 4083 
D INCL PRVCNT > 4084 


print priv = print privilege bits TER: CUAF. Oske UAFMAIN.B32; 429 


FILER, POINTER 


000000006 00 


SCODES + 21E8 


UAF MAIN 1b-5e -Sep-1984 VAX-11 Bliss-32 v4. 51 UA 
yOs~000 build_ini_recs = build system & default records 1 ~Sep-1 138 ¢: 36: 33 DISKSVMSMASTER: cUare she UAFMAIN.B32; oe 3) vO: 
> 4033 4099 | Rsbttl ‘build_inilrecs = build system & default records’ ei 
: 4054 1 routine build_ini_recs : novalue .; 
; re 5 $190 : begin 4 
Be He bis i 
; 4089 4104 ¢ | FUNCTIONAL DESCRIPTION: 3! 
: 4041 41 : i Build the initial records for the creat ten of a new UAF file. + 
; 1028 41 : the user default record is built in the DEFAULT_RECORD - 
3 the? et 5 buffer and the system manager record is built in RECBUF. . 7 
: 4045 4110 { INPUTS: ; 
£ | | | 
> 46049 4114 2 | IMPLICIT INPUTS: i 
; 4050 4115 : * 
Se ip fe t 
: 2088 4118 2 | OUTPUTS: i 
; 4054 4119 ! > 
; 4055 4120 ! none . 
3; 4056 4121 ! .' 
3; 4057 41 § ! IMPLICIT OUTPUTS: ei 
; 4058 41 ! e4 
; 4059 4124 ! default record is built in DErAULT RECORD * 
; 4060 4125 ! system record is built in RECBU > 
3; 4061 4126 : .% 
3 1006 4127 ' ROUTINE VALUE: ? 
3; 406 4128 $ + 
3 4064 4129 ! none + 
: 4065 4130 ! ¥ 
; reg 4131 ' SIDE EFFECTS: > 
3; 406 41 § ! * 
; 4068 41 ! none 4 
3; 4069 4134 leo ef 
; 4070 4135 i 
; 4071 41 § local f 
3 ret 1 user_desc : $Sbblock (8); + 
3 4074 4139 ¢ chSfill (0, uaf$c fixed, in ult_record); i 
3; 4075 4140 default _record uaT$b_vers = Uaf$c _version1; Ff 
3 407 $16) default _ “recordluaf$b_ ~rtyped . uaf$c_uSer_id; + 
: 407 1128 username is blank filled i 4 
Be HB! $ 
; 4081 $138 ch$copy (.defuser<0,8>, defuser+!, Xchar (' '), * 
: 4 : 414 3 
; 40 e108 ! g 4 
3 z 5 £139 } account name is blank filled + 
:4 413 3 
3; 4 41 5 ch$copy (.defact<0,8>, defact+1, &char (" °) 

; 4089 4154 uaf$s “account, default *eecondCuat$e *account)); 


uaf$s username, default _recordluafst _username)); 


v04000 w$ep-1986 13:21:28 DISKSVMSMASTERSCUAF. SRCSUAFMAIN.B32; 1-9" (S15 


i) 
1 
v04-000 build_ini_recs = build system & default records 12: 


' 
| quadword privilege mask 


ch$move (8. defpriv, default_record(uaf$q_priv]); 
ch$move (8, defpriv, default_recordt(uaf$q_def_privJ); 


! 
directory name is counted string 


ch$copy (.defdir<0,8> + 1, defdir, %char (" °) 
uaf$s_defdir, default_recordluaf$t_defdird); 
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' 
device name is counted string 


ch$copy (.defdev<0,8> + 1, defdev, %char (' '), 
uaf$s_defdev, default_recordluaf$t_defdev)); 

' 

CLI name is counted string 


ch$copy (.defcli<0,8> + 1, defcli, %char (' '), 
uaf$s_defcli, default_record(uaf$t_defcli]); 

' 

owner name is counted string 


ch$copy (.defowner<0,8> + 1, defowner, Xchar (' '), 
uaf$s_owner, default_record(uaf$t_owner]): 


t 
Login command file name is counted string 


ch$copy (.deflgicmd<0,8> + 1, deflgicmd, %char (' '), 
uaf$s_lgicmd, default_recordluaf$t_lgicmd)); 
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| 
: fill in default CLI tables 


ch$copy (.defclitabl<0,8> + 1, defclitabl, %char (* "), 
uaf$s_clitables, default_recordluaf$t_clitables]); 


ch$move (8, defpwdlife, default recor¢us (tq, pyd_lifet ined); 
default_record(uaf$b_pwd Lengthy = defpwdlength; 
def t$ = defgrp: 

= defmen; 
default_recordluaf$w_bio R 


olm; 
tla; 
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default_record(uaf$l =taent = defflags; 
default_recordluaf$w_tqcnt]_= deftaqcnt; 
default_recordluaf$w_prccnt]_= de srcents 
default_recordluaf$l_wsquota] = defwsquota; 
default_record(uaf$i_ tyeexceny? = ce tysextent: 
default_record(uaf$\—dfws ng = + bb fwscnt; 
default_record(uaf \ _cput a = + i ¢ a im; 
default_record(ua Lm stlm; 
default_record uat$l-pgf \quote " Rte: 
default_record(luaf$w m 
default_record(uaf$l“pbyt " = def 

default ~record(uaf ish shr in) = “ger ohrti Lue 
default _record(ua defpr 
default_record(uaf$b_ pre rid = de fquepr i: 
default_record(uaf$w_maxjobs) = maxjobs; 
default_record(uaf$w_maxdetach hj = } Pearl 4 past 
default_recordluaf$l_jtquota = defi quota; 
default_record ua ley omaxecct i = de tnaxacct jobs; 
default_record(uaf$b_primedays) = defprimedays; 
default_record uatsP- _network_access “2 = defhours; 
default_record(uaf$b_network_access_s) = defhours; 
default_record(uaf$b_batch_access_p] = defhours; 
default_record(uaf$b_batch_access_s] = defhours; 
default_record(uaf$b_local_access_p] = defhours; 
default_record(uaf$b_local-access_s] = defhours; 
default_record(uaf$b_dialup_access_p]) = defhours; 
default_record(uaf$b_ “dielup- access_s 
default_record(uaf$b_remote_access -P 


default_record(uaf$b_remote_access_s] = dothoura 
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ch$fil uaf$c zi ized. recbuf); 
recbuf uss" vers = uaf$c -version1; 
recbufLluaf Pathe = uaf$c_user 
ch$copy Us Suser< 8>, sysuser+T, kchar (* ") 
usernane. recbufCuaf$t username); 
ch$copy i‘ sact< 8>, sysact+1, %char 
$s_account, recbufluaf$t raccount’) 
ch$move sySpriv, recbufCuaf$q_priv 
ch$move ( syspriv recbut uat$q- def priv); 
ch$copy ( Sysai r<0 itr,” Syed Zchar ty, 
ass siete fs. re ER, uatée sietaird); 
ch$copy ( 13800, syed *y Ichar ( ), 
srdefdey ° Ae ua afSt de pidey)); iy 
ch ° 


ch$co 
ey rite _defcli ae sdf 12); 
ch$copy (os sowner<0,8> + 1, sysowner, Bgher "ps 
(o $s_owner, recbu Cuat$e.. wner 
6,8> + deflg cad. aghar q* %}. 


Pace’ Xchar_ (" '), 


PVPS AISTISIVIWV 


SUVISSSLESRAN= 


ch$copy (.s ysl cmd< 
h$copy (iat Ss, tgicnd, “gecdulCuarst 
c 
uat$s_clitables, recbuttuaf$t _clitables)); 


pwddsc qechu length) _= .syspass<0,8>; | 


WR =O OO NOAUL WN 0 OD NOU EWN 9 ODNOAMN EWN OO DNOUE WN" OOONOUL UT 


user_desc(dst$w_length] -sysuser<0, &>; 
yser, gese sc$a “pointer. = sysusert]; 
Sgett ‘e ets madr = time_buf); ! Obtain a 16 bit salt 
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pwddscld it pointer) = syspass¢1; 
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4204 
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Oo 


recbuf(luaf$Sw_salt] =_.time_buf<3*8,16>; 

recbut uaf$b_encrypt] = entrypt; 

lgiS$hpwd rec encrypt dsc, pysees -recbufCuaf$b_encrypt), 
-reCbufCuafSw_saltl, user_desc); 


ch$move (8, syspwdlife, recbufCuaf$q_pwd_Lifetime)); 
recbufCuaf$b_pwd_length] = syspwdlength; 
recbufluaf$w_grp] = sysgrp; 

recbuf ua teu aes = sysmem; 

recbufluaf$w_biolm 


Oo°oco 
NOW 


uno 


SANS NIO 


recbufluaf$l_bytlm] = sys yeies 
recbufluaf “ad olm) = sysq olm; 
recbufluafSw_fillim] = sysfillm; 
recbufluaf$l_flags] = sysflags; 
recbufluaf$w_taqcnt]_ = systaqcnt; 


recbufluaf$w_prccnt]_= sysprccnt; 
recbufluaf$l_wsquota] = syswsquota; 
recbufluaf$l_wsextent] = syswsextent; 
recbuf ua f3{ -dtusent = sysdfwscnt; 
recbufluaf$l_cputim] = syscputim; 
recbufluaf$w_astim] = gysecet ia; 

y 
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recbufluaf$l_pgflquota] = syspgflquota; 
recbufluaf$Sw_enqlm) = sysengim; 
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9 recbufCuaf$l_pbytim) = syspbytlm:; 
38 recbuf uatSurshr illm) =” veshrfilta; 
94 recbufluaf$b_priJ = syspri; 
95 2 default_re oFdluat$b_quepri = sysquepri; 
38 recbufCuafSw_maxdetach] = sysmaxdetach; 
; & recbufluaf$l_jtq ta) = sysjtquota; 
98 recbufluafSw_maxjobs] = sysmaxjobs; 
; 99 recbufluafSw_maxdetach] = sysmaxdetach; 
00 recbuf us tSwomaxacctio s] = sysmaxacctjobs; 
$3 01 recbufluaf$b_primedays) = sysprimedays; 
7 8 recbufluaf$b_network_access_p] = defhours; 
$s 0 recbufluaf$b_network_access_s] = defhours; 
9 04 recbufluaf$b_batch_access_p] = defhours; 
40 05 recbufluaf$b_batch_access_s] = defhours; 
41 BS recbufluaf$b_local_access_p] = defhours; 
$§ 0 recbufluaf$b_local_access_s) = defhours; 
4 08 recbufluaf$b_dialup_access_p] = defhours; 
44 09 recbufluaf$b_dialup_access_s] = defhours; 
45 10 recbufluaf$b_remote_access_p] = defhours; 
46 11 recbufluaf$b_remote_access_s]) = defhours; 
47 12 1 end; 
O3FC 00000 BUILD_INI_RECS: 
-@ORD Sav 
9 000 ‘ E MOVAB DEF 
° ; E MOVAB DEF 
. 5 MOV REC 
E § 1 SUBL #8, 
0284 + 8F 00 6€ C ys Move #0, 
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MOVW 
MOVZBL 
MOVC 
povege 
MOVC 
moves 
MOVC 
MOVZBL 
INCL 
moves 
MOVZBL 
INCL 
movcs 
MOVZBL 
INCL 
moves 
MOVZBL 
INCL 
MOVCS 
MOV2SL 
INCL 
MovcS 
MOVZBL 
INCL 
movcs 
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D 

DEFAULT RECORD 

FUSER+1, #32, #32, DEFAULT_RECORD+4 
f+, #32, #32, DEFAULT_RECORD+52 
#8, DEFPRIV, DEFAULT_RECORD+41 

#8, DEFPRIV, DEFAULT_RECORD+42 

nd p 

RO, DEFDIR, #32, #64, DEFAULT_RECORD+148 
Rprmey. RO 

RO, DEFDEV, #32, #32, DEFAULT_RECORD+116 
DEFCLI, RO 

RO, DEFCLI, #32, #32, DEFAULT_RECORD+276 
DEFOWNER, RO 

RO, DEFOWNER, #32, #32, DEFAULT_RECORD+84 
DEFLGICMD, RO 


#257 
DEFUS 
RO, D 

C 


RO, DEFLGICMD, #32, #64, DEFAULT_RECORD+212 


DEFCLITABL, RO 
RO DEFCLITABL « #32, #32, - 
#8, DEFPWOLIFE DEF AULT_RECORD+372 
A DEFAU T_RECORD+36 
#8588736, DEFAULT RECORD+36 
2 U ORD+56 
#393202, DEFAUCT RECORD+526 
D CORD+468 


* DEFAULT CORD* 

DEFAUL ~RECORD+556 
#655370; DEFAULT _RECORD+530 
#19000 DEFAULT RECORD+5 
#1310780, DEFAULT RECORD+534 
DEF AULT_RECORD+ 6 
EFA LT"RECORD+538 
8 0g . DEFAULT RECORD+516 
#1024, DEFAULT RECORDS 6 
DEFAULT RECORD?5 

6, DEFA LT RECORDS 
#0, #0, #24, ~DEFAULT_RECORD+47 
#0. #0. #24. DEFAULT-RECORD+47 
#0; #0. #24; DEFAULT RECORD+48 


as 
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O1E4 oC 1 F 13 INSV #0, #0, #24, DEFAULT_RECORD+484 : 4235 3 
167 ¢ 1 FO 00146 INSV #0. #0. #24, DEFAULT-RECORD+487 : 6 ; 
1EA CC 1 FO 00140 INSV #0. #0. #24, DEFAULT“RECORD+4 : 4 3 
16—0 ¢ 1 F 134 INSV #0, #0. #24. DEFAULT-RECORD+49 : 4 8 ; 
170. OC 1 FO 001 INSV #0. #0. #24. DEFAULT RECORD+49 : 6 ; 
Ort ¢ 1 FO 001 INSV. #0. #0. #24 DEFAULT =RECORD*49 + 426 3 
284 &F 0 6E 2¢ ; MOVCS #0. (SP), #6, #644, RECBUF + 626 : 
67 0101 rt 0 00171 MOVW «#257 RECBUF + 4264 ; 
; 0 Ad 9A 00176 MOVZBL SYSUSER, R + 4265 ; 
20 20 21. =A 7 56 C 7A MOVCS R6, SYSUSER+1, #32, #32, RECBUF+4 + 6266 : 
50 9 Ad 9A 001 WOVZBL SYSACT, RO + 4247 : 
20 20 3a A os 3 C ; MOVCS RO, SYSACT+1, #32, #32, RECBUF+S2 + 4248 : 
019¢ C7 60 ad 08 28 0018 MOVES 4B, SYSPRIV, RECBUF +412 + 6249 3 
O16 C7 60 Ag 19 MOVCs of SYSPRIV, RECBUF #42 + 4250 ; 
50 5449 OA 1 mOVZBL sySpir, R : 4251 : 
0040 8F 20 atthe ef 30 C O01Ae MOVES RO, SYSDIR, #32, #64, RECBUF+148 > 4252 ; 
50 5D AD 9A 1p MOVZBL SYSDEV, RO : 4253 : 
20 20 5D Ad “A 30 C 00183 MOVCS RO, SYSDEV, #32, #32, RECBUF+116 : 4254 ; 
50 40 £9 9A O16 MOVZBL SYSCLI, RO ; 4255 : 
20 20 neath Be Oict MOVCS RO, SYSCLI, #32, #32, RECBUF+276 ; 4256 ; 
50 44 49 A ICA NOVZBL SYSOWNER, RO ; 4257 : 
20 20 44 Ad . 30 C 0100 MOVCS RO, SYSOWNER, #32, #32, RECBUF+84 ; 4258 : 
50 55 ARO O18 NOVZBL SYSLGICMD, RO ; 4259 : 
0040 8F 20 05 Ad ae 30 2c OO1DE MOVCS RO, DEFLGICMD, #32, #64, RECBUF+212 ; 4260 ; 
50 2F AD 9A GIES MOVZBL SYSCLITABL. RO ; 4261 ; 
20 20 2F a sale 30 C IEE MOVCS RO. SYSCLITABL, #32, #32, RECBUF+308 ; 4262 : 
0584 C8 Hi AQ 9B if8 MOVZBW SYSPASS, PWDDSC + 4264 ; 
588 C8 8 a9 3 1F ROVAB SySPASSé1 PUDDSC+4 . § 65 3 
04 AE 3 iS Be MOVAB. SYSUSER+T, USER_DESC+4 + 426 : 
0670 ‘ F PUSHAB T y : 4268 ; 
000000006 09 ‘®, 19 CALLS #1, SYSSGETTIN : ; 
166 C 0673 C7 80 1 MOV ihe BUF +3, RECBUF +358 : 4 69 ; 
168 C7 H p i ROVE #2, RECBUF +36 i$ 29 ; 
7E 166 «C? 3¢ MOVZWL RECBUF+358, -(SP) > 427 ; 
7E 1 C7? OA A MOVZBL RE CBU S800" -(SP) : 4 ie : 
584 cB F PUSHAB PWODDSC : : 
000000006 0 —" re Chis. RoC CTSHPUBS : 
0174 (C7 os a9 H 3 f MOVES #8: SYSPWDL At RECBUF +372 : 427% : 
016A CC 4 MOVE #8. RECBUF+36 > 4275 F 
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Routine Base: S$CODE$ + 22B7 


782 bytes, 


3; Routine Size: 


re N Sep-1984 VAX-11 Bliss-32 V4.0-7 ‘ 58 
04-0 000 get_user_record = get username and lookup recor 1b-se sath 96: 3: 33 DISKSVM MASTERSCUAE SRC UAFMAIN.832;1 _ 43 


ROUTINE VALUE: 


true => user record found 
false -> user record not found 


SIDE EFFECTS: 


WWWAAA AWA AAAWws 


Pee eee ww ww oe ot et et et et et ee ee 
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none 


49 1 ! %sbttl ‘get_user_record = get username and lookup record’ 
? 1 peek ne get_user_record (lock_record, permanent_ok) = 
i 
1 '++ 
4 1 ! 
5 1 FUNCTIONAL DESCRIPTION: 
§ 1 i This routine pulls th the next token out of the command 
28 § ! buffer, egos i is the ypernene. and yoeks up up the 
9 ! AF record for that name. record is found 
rs : t is loaded into RECBUF by fa Bs. LOCATE USER)” 
6¢ $ INPUTS: 
64 8 i LOCK_RECORD = specifies that the GET shall lock the record 
$3 4 PERMANENT_OK = specifies that the DEFAULT and SYSTEM records are allowed 
67 ; 1 IMPLICIT INPUTS: 
69 : i TOKENPTR = peéress of delimiter th Last token processed, 
70 4 ! which was the command na 
4 5 TOKENLEN = git A variable to contain Length of current token 
ig 5 i QUTPUTS: 
74 8 ! 
3 } none 
1 | IMPLICIT OUTPUTS: 
§ $i iene 
4 ! 
at 
$5 i 
8 ! 
9 ! 
0 3 | 
i 
i 


builtin 
nul lparameter; 


‘ 
Is this the second phase of a RENAME? 


if .rename_ph2 
then 


begin netuaf_exists 

then adjust_proxy (update_records); 

ch$move (.olduserlen, oldisername, .tokenptr); 
tokenlen = ,olduserlen; 

ronan. _ph2 = false; 

en 
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7 4 4370 ' ; 
3 4 $9 4371 ! Not the second phase of a RENAME. Get first token, and if this : 
: 4308 4 if ! is the first phase of a RENAME (COPY phase), save token for ; 
; 4309 437 : the second phase (REMOVE phase). ‘ 
; 4510 4374 : ; 
: : 1} ? t? oles, ‘ ; 
; egin ° 
; 4 18 4 1S : . ; 
> 4314 4 4 ' Get token > 
; 4315 437 : 

7 4 \$ 4380 if not cli$present (sd_token1) 

; 431 438) or not cli$get_value (Sd_token1,tokendsc) 

; 4318 4 § or .tokenlen eal 

: ? 3 : ? then return LIBSSIGNAL (UAF$_NOUSERNAME) ; 

3 4 $ 4385 ! If the third argument is present, this is the first phase of a 

: 4 A 4386 | RENAME, So save the token for the next call 

> 4324 rt} if not nullparameter (3) 

3; 4325 4389 then 

3 4 § 4390 bogie 

3 4 4391 4 chscopy (.tokenlen, .tokenptr, ' ', uaf$s_username, oldusername); 

: 4328 4 8 4 olduserlen = .tokenlen; 

; 4329 43935 4 rename_phe = true; 

3; 43 $33¢ end; 

3 $333 4395 end; 

; 43 ; $338 

; 43 4397 if not .permanent_ok 

3; 4334 4398 then 

3; 4335 4399 begin 

3 4336 4400 if ch$eql (.defuser<0,8>, defuser+1, .tokenlen, .tokenptr, ' ') 

3; 4337 4401 th 

3; 4338 ret} if nullparameter (3) 

3; 4339 440 then 

3; 4340 4404 return LIBSSIGNAL (UAF$_REMDEF ) 

3; 4341 4405 else 

3 $ ¢ ret return LIBSSIGNAL (UAFS_RENDEF ); 

3 634 4408 if ch$eql (.sysuser<0,8>, sysuser+1, .tokenlen, .tokenptr, ' ') 

: 4345 4409 then 

3: 4346 4410 4 begin 

3 4347 4411 4 if nullparameter (3) 

3; 4348 reat} 4 then 

3 4 3 441 4 return LIBSSIGNAL (UAF$_REMSYS) 

3; 435 4414 4 se 

3; 4351 4415 4 return LIBSSIGNAL (UAF$_RENSYS); 

3 4 26 $318 nd; 

3; 435 441 end; 

3 4354 a2i8 

3; 4355 441 if locate_user (.tokenlen, .tokenptr, .lock_record) 

3 4 28 44 ? then return true; 

3; 435 44 

3 4 28 44 § if .rmserr eql rms$_rnf 

3; 435 4s then 

3 2 ? rf 3 LIBSSIGNAL(UAF$_BADUSR, 2, .tokenlen, .tokenptr) 

3 Se 

3; 4362 4426 LIBSSIGNAL(UAF$_GETERR, 0, .rmserr); 
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v04-000 get_user_record = get username and lookup recor 1 300-1 3be 98 38: 33 DISK SVMSMASTER: CUAR Ske UAFMAIN.B32;1 . 33 
3; 4363 ret false : 
: 4364 4428 end; : 
O7FC 00000 GET_USER_RECORD: : 
“WORD Save R2,R3,R4,R5,R6,R7,RB,RI,R10 + 4314 ; 
A a 9E 02 MOVAB LIBS$SIGNAL, R10 : ; 
+ 9E MOVAB S$D_TOKEN1, R9 : : 
t: gE 19 MOVAB RENAME _PH3, RB : ; 
' i 1 MOVAB TOKENLEN, R7 : ; 
iF 68 €E IF BLBC RENAME PH2, 2 + 4361 ; 
07 A? €9 000 BLBC = NETUAF-EXISTS, 1$ + 4364 ; 
re D4 6 3 CLRL = = (SP) + 4365 : 
E796 ct 0 FB CALLS #1, ADJUST_PROXY : : 
4 04 ag D0 000 g 1$: MOVL § OLDUSERLENT R6 + 4366 ; 
50 06 =A BO 90 MOVL_ TOKENPTR, RO : ; 
60 08 AB 56 0034 MOVC3 RO, OLDUSERNAME, (RO) : ; 
67 5 80 00 9 MOVW 6. TOKE + 4367 : 
68 94 C CLRB ss RENAM + 4368 ; 
45 11 000 BRB + 4361 ; 
59 DD 00040 2$: PUSHL R9 ; 4380 3 
000000006 00 gi FB 0004 CALLS #1, CLISPRESENT ; F 
“ BD Soce et Shit Ry : 4381 
26 DD S04 PUSHL Rg ; : 
000000006 00 p FB 009 CALLS + CLISGET_ VALUE : F 
04 E9 0005 BLBC ; : 
6 83 005A TSTW FOKENLEN + 4382 : 
8 005¢ BNEQ 4 ; ; 
000000006 8F DD OO005E 3s: PUSHL  #UAF$_NOUSERNAME : 4383 : 
B 11 00064 BRB 11$ : ; 
03 6C 91 00066 4$: CMPB sé AP), # : 4388 ; 
1A 1F 00069 BLSSuU ‘5$ ; : 
0c AC D3 0068 TSTL Le cap) : : 
1§ 1 006 BEQL = 5 : : 
56 67 3¢ 00 MOVZWL TOKENLEN, R6 + 4391 ; 
50 04 A? bd 007 OVL  TOKENP RO ; ; 
20 20 60 - 36 C 6 qt MOVCS 6, tROD: #32, #32, OLDUSERNAME ; : 
04 AB 56 p 7 VL R6, OLDUSERLEN > 439 : 
5 01 MOVB #1, RENAME PH : 439 3 
C 08 AC 3 5$: BLBS § PERMANENT OK, 12$ : 439 ; 
51 011 C9 OA 9 MOVZBL DEFUSER Ri : 4400 : 
50 06 A? 90 TOKENP PTR, RO ; : 
67 20 0119 C9 31 D CMPCS ; DEFUSER*1. #32, TOKENLEN, (RO) : 
1A 9A BNEQ 8$ ; 
03 6¢ of 9C CMPB «CAPD, #3 : 4402 
1F OO09F BLSSU 6 ; 
0c at 03 Al TSTL (AP) ; 
AG BNEQ ; 
000000006 f bb A6 68: PUSHL #UAFS_REMDEF + 4404 
AC BRB ¥ : 
000000006 BF DD OOOAE 7$: PUSHL  #UAF$_RENDEF > 4406 


M 6 
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v04-000 get_user_record = get username and lookup recor 14-Sep eats yi 9¢ 38: 33 DISKSVMSMASTER: CUA. SRC JUAFMAIN.B32;1 20 48} 
2B 11 00084 BRB 11$ ; 
1 ong Fk GBR os: ROVzoL SrEusen, {4408 
67 20 0151 25 é) BD fs CMPCS ae WTR RO, #32, TOKENLEN, (RO) : 
. 4 ¢ BNEQ 12$ ; 
03 of if ¢9 CMPB ss CAP), #3 + 4411 
1F O00CC BLSSU 9 3 
0c at 05 ¢ TSTL  12(¢AP) : 
1 D NEG  10$ : 
USHL #UAF$_REMSYS + 441 
000000006 i p p 9$ Pus mA $_RE 4 
000000006 8F oD DB 10$:  PUSHL HUAFS R RENSYS + 4415 
6A 1 FB E} 11$: CALLS , LYBSSIGNAL ; 
04 ac DD OOOES 12$:  PUSHL LOCK_RECORD + 4419 
04 =A bp £8 PUSHL TOKENPTR : 
7E 7 3 OEB MOVZWL TOKENLEN, =(SP) ; 
00000000v 00 ; FB 0 ct CALLS #3, LOCATE_USER : 
50 01 00 Mie MOVL #1. RO + 4420 
04 000FB RET : 
50 18 A? DO OOOFC 13$:  MOVL — RMSERR, RO + 4422 
00018282 = &F 30 D4 cHPL RO, #98994 : 
04 A? pp 0109 PUSHL TOK KENP + 4424 
7E 67 3C 0010C MOV ZWL TOKENLEN, -(SP) : 
02 DD 0010F PUSHL ; 
000000006 8F oD oii PUSHL HUAFS BADUSR ; 
6A 04 FB 00117 CALLS LTBSSIGNAL F 
Op 11 OO11A BRB reg ; 
0 DD OO11C 14$: — PUSHL RO + 4426 
7E 04 IIe CLRL (SP) ; 
000000006 8F DD 001 PUSHL fh GETERR ; 
A 93 FB 00126 CALLS TB$SIGNAL 3 
0 p4 00129 15$:  CLRL + 4428 
04 00128 ET ; 


; Routine Size: 300 bytes. Routine Base: $CODE$ + 25C5 


UAFMAIN 56 1984 VAX-11 Bliss-32 V4.0-74 2 
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7 4 66 4429 1 mabey ‘Locate_user = cohup user record in UAF' 

: hit 6 te 9 1 peut’ ne locate_user (size, buffer, lock. record) = 

i 39 4632 ™ 

: 4 ty 44 144 

: 437 4434 2 i 

; : a rr 2 FUNCTIONAL DESCRIPTION: 

: ? ie 2 4 Routine to locate a user record in the UAF file. 

: 4376 4439 2 | INPUTS: 

: 4377 4440 2 | 

; 4378 444) : SIZE = size of the username string 

; 4379 rere | : BUFFER = address of the username strin 

: tr reed } LOCK_RECORD = specifies that the GET shall lock the record 
: 438¢ 444s { IMPLICIT INPUTS: 

; £386 sc? | UAFRAB = RMS data structure for SYSUAF.DAT 

: 4386 4449 2 | OUTPUTS: 

3; 4387 4450 ! 

; 4388 4451 ! none 

3; 4389 $026 ' 

3 rts $087 IMPLICIT OUTPUTS: 

: $38 $022 | If record is found, RECBUF contains the located record. 

: 4394 4457 i ROUTINE VALUE: 

> 4396 4459 i true -> record found 

: $335 rhs false -> record not found 

; 4399 446 | SIDE EFFECTS: 

> 4401 4464 i none 

3; 440 4465 !—= 

> 440 446 

3 4404 446 local 

3 tee ree found; ! record found indicator 
: ret £609 found = true; ' assume record was found 
: 4409 447 ch$copy (. slit: ebuffer, char (' 

3 red reds s_username, recbuf uatet _username)); 

: 44te 4475 2 if .lock_record 

3 441 447 then uaffab Pabst -Pop) = = rabSm_rlk 

3 reht rr! else uafrabCrab$l_rop rab$m_ A or rab$m_nlk; 

: 4416 447 if not (rmserr = get_uaf_record ()) 

: ret 4 o 9 then found = false; 

+ 4419 44 ; return .found; ! return indicator 
3 4420 44 end; 


UAFMAIN -1984 & VAX=11 s-3 
v04-000 locate_user = lookup user record in UAF 1S sen-1984 98: 933 33 DISK SKSVMEMAS TERSCUA. SRCSUAFMAIN. B32;1 page $5 


OOFC 00000 ene 
WORD 


; Save R2,R3,R4,R5,R6,R7 : 4430 
57 00000000" 99 9 HOVAB  UAFRABS4. 7 ; 
6 p MOVL. #1, FOUND + 647 
20 20 08 &C ead AC ¢ MOVCS SIZE, @BUFFER, #32, #32, RECBUF+4 + 447 
AC €9 : BLBC OL CORD $ 4475 
03 00080006 F bo 1A MOVL #30028 4288, Unf RAbe +4 : 4476 
o 00100008 8F Dd : 1$: MOVL #1048584, UAFRAB+4 + 4477 
oon F A 28: CALLS #0, GET UAF_RECORD + 4479 
FAOC 09 1 MOVL RO, RMSERR : 
E : BLBS RO, ; 
6 D4 CLRL «FOUN + 4480 
6 00 00038 3$ MOVL FOUND, RO : 448 
04 0003E RET ; 448 
; Routine Size: 63 bytes, Routine Base: S$CODE$S + 26F1 


a 


<c 
oz 


nen eR RR RRR Ree ee eh eH 


UAFMAIN 16-s¢ -Sep-1984 t 9: \¢: 33 
v04-000 get_uaf_record = routine to deal with record lo 1 ~Sep-1984 2 Dd 


4484 1 Xsbttl ‘get_uaf_record - routine to deal with record locking’ 
rr 5 fous ne get_uaf_record = 


1 
egin 
44 
44 3 '++ 
44 ' 
Gat FUNCTIONAL DESCRIPTION: 
449 i A common routine to GET records from SYSUAF.DAT, deal with retries 


VAX=11 BLiss-32_V 64 
LSKSVMGMASTERSCUAR SRCTUAFMAIN.B3251°9" (he 


449 when the record is locked. 
4494 

4495 INPUTS: 

449 

449 none 

449 


IMPLICIT INPUTS: 
UAFRAB = RMS data structure for SYSUAF.DAT 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
RECBUF - The user's record 
ROUTINE VALUE: 
RMS status code 
SIDE EFFECTS: 
none 


Slit iet te te ee ee ee ee te te ee ee 


8 at tt td od ed ed ed mb HOODOO OOOCOO 


SOON NEW O ODNO UE WIN OOO NO EW O DONO 


local 
counter, ! number of retries remaining 
success; 


If anybody's record is locked it shouldn't remain that way for long. 
Also, ignore the special system password record. 


counter = retry_r 
while ( Pnaend Ty ~\ Syet (rab = uafrab)) eq L rms$_eor 
or chSeqt (UAP S Odi Peat RECBUFLUA FST USERNAME: ‘ 
asci <fystenthessubre>") ss 
and ( loonie = set in a - geq 0 


if Sschdwk (daytim = wakedelta) then Shiber; 


.success 
end; 


Dt el el el tel el ek el ek etl kl ak lk ek ek ek et ak dt ad et et et ot et ot et ot et 
See eee sesh sh sh sh Ah Ab ih db Ab Ab Ah Ab db ab db ah Ah ah ab eah ab eah al al al eal eal ab 


AAA A AAA HAPOPSPOPONPIPUNINI NIN 


DONO UE Ww — 


vant 


get_uaf_record = routine to deal with record to | 


«PSECT 


72 6F 77 73 73 61 50 28 6D 65 re B if peers P.AFG: .ASCII 


«PSECT 


WW 
4 8 00 O08 MOV 
00000000" 00 9F 00005 1$ PUSHAB 
000000006 90 1 Fe if at 
Q00182AA = BF 5 } \? Sree 
11 20 00000000" 00 00000000" 8 20 Bais CMPCS 
1 is 002C BNEQ 
4 0D 4 2s DECL 
1D 19 000 BLSS 
7E 04 000 CLRL 
00000000° 99 3F 0034 PUSHAB 
E 7C QO03A CLRQ 
000000006 00 9 Fe 4 'F4 crits 
000000006 80 00 + 9-98 i 
50 88 DO OOO4F 3$ MOVL 
04 00052 RET 


; Routine Size: 83 bytes, Routine Base: S$CODE$ + 2730 


003C 00000 GET_UAF RECORD: 
ORD 


SPLITS,NOWRT,NOEXE,2 
\<System+Password>\<0><0><0> 


SCODE$,NOWRT,2 
Save, R2,R3,R4,R5 

OUNTER 
UAF RAB 
", SYSSGET 

UCCESS 
yee #98986 
#32, RECBUF+4, #32, #17, P.AFG 


3$ 

—— 

=(SP) 

weegret tA 

#4, SYSSSCHDWK 


#0, SYSSHIBER 
SUCCESS, RO 


J 
b-sep “1382 99:59:33 PES wGmAStERSCUAE SRCSUAFMAIN.B32;4°%° (Cho 


4538 


Bete Se Se Se Se Se Se Se Se Se Se Se Se Fe Se Se Se Se Se Be 
eo 
“i 
Ww 
Ww 


ee 7p 


cmdlindsc: vector; 


a dt ot ot ot ot I OOO 


WN =O OONO VE WN" OOONOU EWN OOM 


local 
pte ! index into CMDBUF 
uflen; ! remaining buffer Length 
A 
: Prompt with normal prompt string until some input is supplied. 


SSBLSEAL 


4 eek (accprmpt, cmdbuf(0J, cmdbuflen) 
un 

9 -insi 3 

35 nsize neq 0 

94 


' 
95 2 | Now that Line has been read, continue reading until 


7 
UAFMAIN 1b-5¢ -1984 02:16:54  VAX=11 Bliss-32 V4.0-74 Pa 6 UA 
v04-0 get_cmd_line = input user command Line 1 730071382 99:39:33 DL SKSVMSMASTERCUAR SRCSUAFMAIN.B32:1 oe 486 VO: 
: 4467 4539 1 Xsbttl ‘get_cmd_line - input user command Line’ : 
; ret ? Z 1 roe Setcad=Line = : : 
: 4481 454 : ; 
3 44 § 454 ++ 3 
7 44 4544 ‘ : 
; a 2 i346 FUNCTIONAL DESCRIPTION: , 
> 44 454 i This routine reads in the command Line from the user, : 
3 mak rat : reading additional Lines if continuation is specified by : 
: 4488 454 ' a ‘'=' as the last character on the input Line. : 
: Prk 1229 A zero byte is inserted following the last input character read. : 
; 4491 4 38 INPUTS: ; 
: 449 4554 i none : 
> 4494 4555 : 
; ree ? 28 } IMPLICIT INPUTS: 
: t099 4558 i CMDBUF = buffer to receive the user's command Line 
: meh ? 22 CMDBUFLEN = Literal length of CMDBUF 
: 4500 4361 i QUTPUTS: 
: 6 4 8 i none 
3 450 4564 : 
: Be ; 9? IMPLICIT OUTPUTS: 
; 0 4 ef ; CMDBUF is filled with command Line 
3 4 $3 | ROUTINE VALUE: 
; 4 4 none 
; 4 rs i SIDE EFFECTS: 
; 4 if ! none 
: as 
; 2399 
3 4580 
3 ? 1 
: 4 5 
3 4 
; 4 
; & 
3 oy 
; & 
: 4 
3 4 
3 4 
: 6 
: & 
: 6 
3 4 


Pw wal sl ah al ab sh ah ah Ab Ab Ab Ab Ab Ab Ab ah hb hb bb hh db db bb db db 4h db Ah dh dh dh sh sh sh ah sh sh ah ab sb shah al 


Po oP oF oF oY oF ot oF ot ot ot ot ot ot et et et ek eh ee ek kk 
PUP PUPP PUPPET PUSPATI STII III 


PERS IGNAL(UAFS. CMDTOOLONG, 1, cmdbufmax); 
i false; 


4 
4 
4 
_end : 
= cmdlindsc (0) = .ptr + 1; 


cmdlindsc (1) = cmdbuf; 
return true; 


f Bi 
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>; 4535 459 ' Last character is not a '-'. 
3; 4 459 : 
; 4 4 38 
: 4 4 pte = ,insize - 1; ! index to last character read 
3 t is 460} uflen = smenutlens ! initial buffer size 
: 2803 tas | 8 otal anit otk 
3 -cmdbufC.ptrj] eql ‘-' 
: 4368 & bi 4 : 
3 45446 4605 begin 
: 4545 4 $ 
: t2¢$ 4 ! 
; 454 4608 i Read starting at the position of the '-'. Then adjust the 
>; 4548 4609 i index and pozetnine Length to point to the last character 
3: 4549 4610 i of the next input. 
; 4550 4611 i 
3 4 2) 4 \§ 
s 4 ¢ 461 buflen = .buflen - (.insize + 1) 
3; 455 4614 ask (accprmpt » emdbufL. ptri, ‘butlen): 
3; 4554 4615 if (.ptr + .insize) lss cmdbufmax 
3; 4555 4 18 then 
3: 4 28 461 ptr = .ptr + .insize - 1 
3; 455 4618 otee, 
; 4558 4619 
; 4559 4620 
; 4560 4621 
; 4561 4 ¢ 
3 4 ; 4 
3 4 4624 
; : : 5 
; 4 4 ; 
7 4 4628 
3 4 4629 
3 4 4630 
3 4 4631 


PRR AAA AA AAA AAA AA AOA AAO 


003C 00000 GET_CMD_LINE: 
-WORD Save R2,R3,R4,R5 


£88888 8 9E BRR REYNE Base : 
F 1$: MOVZWL #0 , =(SP) ; 4590 
4 pb 1 PUSHL ; 
00000000' 9 F 0001 PUSHAB RecPRwer : 
65 F 1 CALLS : 
0 0990 «ca p MOVL Twél2e. RO : 4592 
£9 BEQL ; 
FF AO 3 MOVAB =i (RO), PT > 4599 
0400 af ¢ MOV ZL #102 BUrLEN > 46 
51 4 4 2%: ADDL3 R4, PTR, R > 460 
D 61 91 cmPB=Es«éCRD, «#45 : 
40 if 7 BNEQ 4$ ; 
50 53 0990 C4 C 9 SUBL3 INSIZE, BUFLEN, RO > 4613 


uals 
v04- get_cmd_line - input user command Line 
53 FF AO 43 
00000000' 9 h 
: OOOOOTFC i nthe 59 b} 
52 AB 9 
7E O1FC F 4 
00000000° f DD 
000000006 00 oi ‘? 
$888888: $8 
a 
4 
50 D4 
04 


; Routine Size: 143 bytes, Routine Base: 


SCODES + 2783 


SSN NIP AAA MAE 


MOADwe-ONO> wu —ow Srnovwes —— 


t 


kad 
wr 


= 
bed 


“ 
tad 


$ 
-$ 


7 


ep-1986 18:21:22 DISKSVMSMASTER: CUA. SRCSUAFMAIN.832: 


51 (R02. pt 
R3> 
‘ Conn 
Tete PTR, RO 
RO, 15 


=1(RO), PTR 
#508, -(SP) 


Net CMD TOOLONG 
LIBSSIGNAL 


7 ta2) CMDLINDSC 
CHDBUE CMDLINDSC+4 


RO 


Bete Se Se Ge Se Se Se Se Se Ge Fe Se Se Ge Ge Ge Ge Ge Se 


29° (485 


4614 


4615 


vet 


PUP PULPUPUPUSUSUSUSVSI SUSU SISTA IS TSI 
080908 SIN NNN SINS 
WR —OOONOUL wry 


Fo nt at mmm nm mmm 
oooonovovJond 
SSLESLATVLESSSLSARA 


4600 


PREP EP PEEPS 
PSOOAOSOOSOOOAOO 


H Rs 
ask = prompt terminal for input 12: ss8- 1382 9: 3: 33 Be xby nBHas 


4 ! Zsbttl ‘ask = prompt terminal for input, 

Q oe routine ask (string, buffer, len) : novalue = 

4 

sei fit 

? 3 FUNCTIONAL DESCTIPTION: 

4640 i Rout ine to prompt user for input. The input string is read 
4641 i into the user specified butter and the size read 

Z r is placed in the global INSIZE. 

tote INPUTS: 

ret i STRING = the address of a counted ascii prompt string 
464 i BUFFER = address of the input buffer 

re et LEN = Length of the input buffer 

ets IMPLICIT INPUTS: 

A ge 

$eee OUTPUTS: 

$028 i none 

465 i 

$828 IMPLICIT OUTPUTS: 

Pres INSIZE = size of the input string 

$32 ROUTINE VALUE: 

4664 i none 

4665 i 

1888 SIDE EFFECTS: 

pret & none 

45 

467 map 

ra buffer : ref vector(,bytel; 

4674 inrabCrab$l_pbf] = .string + ! prompt string address 
4675 inrab(rab$b_ ~psz me ~ i string) <0, 8>; ' prompt size 
467 inrablrab$l_ubf] = .bu tfer; ! ulter address 
ret inrablrab$w_usz) = .len; ' buffer size 
467 ! 

4680 ! If end of file encountered on get (either “Z from terminal or 
? end of file on indirect command file) then take exit path. 

46 


4 if S$get (rab=inrab) eql rms$_eof 
5 then exit_uaf (); 


4 if (insize = .inrabCrab$w_rsz]) neq 0 ! get input size 
en 


s-32 
TER: 


V4,0-7 
CuaF . SRC UAF MAIN.B32; ° 


7°38) 


; Routine Size: 104 bytes, Routine Base: 


ask = prompt terminal for input 


; 4629 4689 begin 
; 4650 4690 ncru i to .insize - 1 
ees 8 airs 
3 e 
; 46 : 1898 4 Peo te ttert i]_gequ ‘a’ and ,bufferl.i 
> 46 4694 4 then bufferl.i] = .bufferL.i] and not 
3; 4635 4695 end; 
; 4636 469 end; 
; 4637 469 end; 
0004 0000 
52 00000000' 99 4 Bay 
0090 ¢2 04 1 4 0 
094 +C 4 BC 8 0010 
084 C 8 aC D 8 16 
080 C C as 0 1 
60 A F 38 
809000006 90 9} FB 
0001827A f 9 } 8 
00000000v 00 09 FB 000 
62 0082 f 13 Bort 1$: 
51 62 ge B43 
9 D4 0004 
17 11 00049 
61 = 8F 08 acee f 00031 2$: 
7A soGF 08 acne iH 0083 
oo 8 HHS 
51 50 D1 9006 4$: 
E4 1B 0006 
04 00067 5$: 


SCODES + 2812 


7 
tose -1 
1 =tep-4 


10'820"; 7 


! Upcasing is done here because the CVT 
Yond 
! option does not work under batch. 


INR 
ni, SYSSGET 
RO, #989 
#0 EX}T UAE 
INRAB* 47 INSIZE 
“, INSIZE, R1 
4$ 

UFFERCI], #97 
@BUFFERCI], #122 
#32, @BUFFERCI) 


[i 
$ 


Bhs 93:39:33 | BE binGmaSteRs car secSuAFMAIN.B32;1°%° 


Pee Se Se Ge Se Se Se Se Se Ge Be Be Se Se Be Be Be Be Ge Se Se Be Se Se 


36 


UAF MAIN 


v04-0 


oO 
S 


—OOODNAOUNE WN" OOONOUS 


S- S- S- S S&B BEB EE EE EE EE 
SEMA AAAAAAA AR Re ee 


466 


vv 


39 | 


1 
1 
1 
1 
1 
1 


NOUS Wit 


DWONOULSWN—C OW 


1 
1 
1 


NOUS WN "OO OONOULSWN—O 


PPP PPP PES 


FW OOONOUS WOOD 


Fe oe ot ot ot ot et ot et at ot et et et eh aad nd adda a ah ae a te ee tt ek kt et at et et et et et et tt et 


NNN NNN NN NNN SSS 


Wn 
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1b-se 1984 02:16:54 VAX-11 Bliss-32 V 
fmt_sys_msg = output system message file messag 1 30071382 96:39:33 DISKSVMSMASTER: CU 


%sbttl ‘fmt_sys_msg = output system message file message’ 
meses routine fat sys msg (facstr. msgid of) : novalce = 
hed 
FUNCTIONAL DESCRIPTION: 
This routine guyputs an error message followed by 
the text found in the system message file for the 
error condition, If the message is not found, the message 
ID itself is printed. 
INPUTS: 


i 
' 
i 
i 
i 
i 
4 
{ FAOSTR = address of counted ascii message to be printed 
} MSGID = error number 

P1 - the first of possibly several parameters to FAO 
IMPLICIT INPUTS: 

| None 

OUTPUTS: 

| None 

IMPLICIT OUTPUTS: 

None 

| ROUTINE VALUE: 

| None 

SIDE EFFECTS: 

: None 


local 
buffer : vector $g00 byte], ! buffer to receive message 
bufdsc : vector (2, (ong), ! string descriptor 
code; ! save return code 


purdsct 0) = 200; ! construct string descriptor 
bufdscl1) = bufter; 


code = $getmsg (msgid = .msgid, msglen = bufdsc(0], bufadr = bufdsc(0)); 


J 
: Output internal message. Then output system error or error number. 


goods EdscSu_ length) =. (.faostr)<0,8>; 
faodscldsc$a_pointer] = .faostr+1; 
$faol (ctrstr = faodsc 

outlen = outrablrab$w_rsz). 


! input string descriptor 


4.0-74 p 
AE SRCSUAFMAIN.832;1° 9° (47) 


71 


K 7 
UAFMAIN 16-Sep-1984 02:16:54 VAX-11 Bliss-32 V4.0-74 Page 172 
v04-000 fmt_syS_msg - output system message file messag 12280571382 96:39:33 DLSKSVMGMASTERSCUAF  SRCIUAFMAIN. B32s1 . 395 
: 46 P 4755 outbuf = disdsc, 
; 469 47 8 prmlst = pl); 
; 469 47 
; 469 47 8 $put (rab = outrab); 
; 4700 47 
3; 4701 oo38 if .code eql ss$_msgnotfnd 
; 470 4761 then LIBSSIGNAL(OAFS_SYSMSG2, 1, smegid? 
; 470 1588 else LIBSSIGNAL(UAFS$_SYSMSG1, 1, bufdsc(0]); 
: 4704 476 end; 


~EXTRN SYSSGETMSG, SYSS$FAOL 


000¢ 0 .ENTRY FMT SYS_NSG, Save R2,R3 : 4699 

53 00000090" 00 9€ 6 OVAB FAOBSC,~R F 

SE FF 34 ce 9€ 000 OVAB 34 (SB) SP : 
7E c8 F 9A 0000 MOVZBL #200, BUFD + 4743 
04 AE AE 3 a012 OVAB BUFFER BUFDSC+4 + 4744 
7E OF 7D 0001 OVO #15, -(SP) + 4746 

08 AE OF OO1A PUSHAB BUFDSC : 

C AE 9F 0001D PUSHAB BUFDSC ; 

08 aC DD 00 9 PUSHL MSG1D : 

000000006 : FB CALLS #5, SYSSGETMSG ; 

: 0 00 00 A MOV. R D ; 
t 04 Bt 98 0002D MOVZBW @FAOSTR, FAODSC + 4751 
04 A3 04 AC 1 C1 00031 ADDL3 #1, FAOSTR, FAODSC+4 + 4752 
OE OAS OF O003A PUSHAB DISDSC oso 

O72E C3 OF Mie PUSHAB OUTRAB+34 : 

53 DD 0041 PUSHL R ; 

000000006 00 04 FB 00043 CALLS #4, SYSSFAOL ; 
ooooo000e 00 GF PK Bonet CALLS” a oe Thee 
00000621 «BF 52 DI 0055 CMBL CODE, #1569 4760 
08 at bd O05 PUSHL MSGID 4761 

000000006 8F OD 0088 PUSHL  #UAF$_SYSMSG2 ; 
S bo betes 18s: bem & : 4762 

1 DD 9060 ; PUSHL #1 : 

oo0ooc00s 00 0 OF PB doors 28: CALLS. AS LTBSSTGNAL 
04 ig ; RET “ > 4763 


; Routine Size: 125 bytes, Routine Base: SCODE$ + 287A 


«> 


UAFMAIN 18-56 -1984 02:16:54 VAX-11 Bliss-32 V4.0-74 P 73 
VO4000 faoout = output formatted message 1 ~8ep-19 4 96:39:33 DLSKSVMSMASTERSCUAF SRC SUAFMAIN.B32; 1°" (403 


1 Xsbttl ‘faoout = output formatted message’ 
one routine faoout (string, pl) = 
egin 


le¢ 
' 


} FUNCTIONAL DESCRIPTION: 


SELF 


PAN "OC OBNO UNE WIN — OO OBNOUE WN OOODNO VE WN" OOONOUS WN OOO 


Routine to output a formatted string. 
INPUTS: 


STRING = address cf a counted ASCII FAO control string. 
Pi = the first of possibly several parameters to FAO 


7 
? 
7? 
? 
71 
7) 
7) 
71 
71 
71 
71 
71 
71 
71 
7 


SNS 


SN NNN NINO OA OOO 


=O OODNOAOMN EAN SOD NOU EWN 0 OONOU EWN OO OONOUS 


IMPLICIT INPUTS: 
none 
OUTPUTS: 
none 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 


FAOOUT always returns FALSE, as it is often used on the 
return from an error condition. 


SIDE EFFECTS: 
none 


Cette ee et heh te ed et et tt te tt te tt 


OOOOOOOOOOOOMWMMmoccacaC~ 


faodsc(dsc$w_length) = . (.string)<0,8>; ! input string descriptor 
faodsc(dsc$a_pointer] = .string+!; 
aol (ctrstr = faodsc 
outlen = outrabCrab$w_rsz), 
outbuf = disdsc, 
prmlst = pl); 


wvuvuv 
Fk dha Bk a Oe D-DD Ve Nenad dad ee ee a a ak at at at et at et et et et et et tt et 


COCOCO COCO COCO COMO WOO NIN INI IIIS 


SSaras 


$put (rab = outrab); 


false 
end; 


3 4 
; 4 
; 4 
; 4 
3; 4 
3 4 
; 4 
: 4 
i; 4 
; 4 
3; 4 
:; 4 
3; 4 
: 4 
3; 4 
; 4 
: 4 
3; 4 
; 4 
; 4 
; 4 
; 4 
: 4 
3; 4 
: 4 
; 4 
; 4 
3 4 
: 4 
3; 4 
3; 4 
3; 4 
3; 4 
3; 4 
3; 4 
: 4 
3; 4 
; 4 
; 4 
: 4 
; 4 
: 4 
: 4 
: 4 
; 4 
:; 4 
: 4 
3; 4 
3 4 


DOO 
MOO 


§2 00000000" 00” 9 09008 ROVAB. FAODSCY Ro ¢ 4765 
85 be Be 98 0000 MOVZBW @STRING, FAODSC : 4802 


M at 

UAFMA 16-Sep- VAX-11 Bliss-32 V4.0-7 74 
¥06~000 faoout - output formatted message 12: 38: 1984 98 3: 33 DISKSVMSMASTER: CUAF. she UAFMAIN.B32;1 faee 383 
04 A2 04 AC 01 1 0 L |. STRING, FAODSC+4 3; 4803 
08 A SF 1 PUSHAB 3 1893 

F A or 1 PUSHAB BISDSC 3 

072E F 1 PUSHAB OUTRAB+34 3 

0D 10 PUSHL x é 
000000006 00 o70¢ 4] if CALLS af iSsF ace 3 4809 
000000006 00 of FB ‘ CALLS “i $ TAM esput ; ponte 

be ; RET : 


; Routine Size: 52 bytes, Routine Base: S$CODE$ + 28F7 


. 
o 
. 
a 
& 
o 
e 
. 
o 
° 
o 
. 
. 
. 
e 
* 
. 
o 
. 
o 
2 
a“ 
* 
° 
. 
a 
- 
e 
. 
a 
. 
o 
. 
a 
. 
e 
. 
a 
° 
2 
- 
e 
a 
> 
. 
e 
° 
. 
. 
- 
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UAFMAIN 16-Sep-1984 02:16:54 VAX-11 Bliss-32 V4.0-74 Page 175 
v04-000 help_uaf = help routine 127808- 1382 96:39:33 TT EKSUNGRASTERSCUAF SRC SUAFMAIN.B32:1 ° (493 
: 47 $ 4813 1 Xsbttl 'help_uaf - help routine’ 
; 47 4 13 lobal routine help_uaf : novalue = 
> 4758 481 egin 
; 4759 4 8 
; 4760 481 '++ 
: 4761 tats } 
$ 2h6 481 ' FUNCTIONAL DESCRIPTION: 
; 476 4820 : 
> 4764 4821 : Print out the help message or messages. 
; 4765 4 § ! 
; 4766 48 ! INPUTS: 
> 4767 4824 ‘ 
3; 4768 4825 ‘ none 
: 4769 48 § ! 
3; 4770 48 ' OUTPUTS: 
; 4771 4828 : 
: ore 4829 ! none 
; 477 4830 : 
3 4774 4831 ' ROUTINE VALUE: 
3; 4775 ret ! 
3; 4776 483 } none 
3; 4777 4834 } 
; 4778 4835 ! SIDE EFFECTS: 
3; 4779 4836 } 
; 4780 4837 ! none 
3; 4781 4838 feo 
3 4.14 4839 
3; 478 4840 map 
3 4784 4841 cmdlindsc: vector; 
: 4785 $366 
3; 4786 484 local 
3 4787 4844 Line_dsc : vector (2); 
; 4788 4845 
3; 4789 4846 tL ine_dscho) = .cmdlindsc 91; 
; 4790 4847 Line dscC1J = .cmdlindsc(1J; 
: 4791 4848 
3; 479 4849 ! 
3; 479 4850 ! The first thing to do is to remove ‘help’ from the command Line 
3 4794 4851 ' and give the help routine the remainder of the command Line. 
3 of? ti) Find the beginning of the word ‘help’. 
3; 4797 4854 if .(. line dscliJ])<0,8> eql ' ' 
i rr ee 
3 egin 
3; 4800 485 Line_dsc(1] = ch$find_not_ch (.Line_dsc(0J), .line_dsc{1],_° '); 
3 4801 4 28 Linendecto) = Tine déct0l - (.line-d Hab - inet iadsee 13); 
3 $506 485 end; 
3 4 4860 
3 rt ty 4861 ! 
; ? 05 ? $¢ : Now skip past the ‘help’ to the first blank (if there is one) 
: tboe 4864 if ch$fail (Line_dscl1] = ch$find_ch (.line_dsc(0J, .line_dscf1J, ' ')) 
: $308 4865 then 
:; 480 4 06 ! 
; 4810 486 ! No blank, set empty string 
3; 4811 486 : 


12 486 Line_dscl0) = 0 


a) 


Se Se Se See Se Se Se Se Sean eee Se teas 
Fat af af af at at at at wt et a 
DWNAULEWN "OOD ONOUL Ww 


02.0009 0900 09 09 00 09 OD CD 0D. 
~ 
ALA" OOONOULS UO 


PRRARL LPP PREP EED 


OOOOMOOoN INNINGS 


fo Te To -] 
ROPOPPOMOPONTON 3 SS 


help_uaf = help routine 
else 


! Start an interactive HELP session 
if not lbrSoutput_help ‘Sasser! port 


then LIBSSIGNAL (UAFS_HELPERRSs 
1 end; 


50 
BE 


50 
6E 


! Found a blank, set pointer to it 


Line_dscl0] = .cmdlindsclO] - (.line.dscC1) - 


70 6C 65 68 66 61 


: 
| 
: 
: 


So 
So 


DOS OOO $9 $9 9 (WON OC SS] OVO COCTFO 


sesceesss 


MOO NUMA 9 BOF ODO LMS OYIMO VIP 


COOooooocoocooo 
OOOCCOCSooooSo 


RN EH EMV ENV SOW SGN COO9g Own 


MOMOUM OM & OOM | —MOVITMMVOWOS 
SoCo oooooooooooooooooooooooo 


PDI & EE 


VAX=11 $-32 V 


98: df 35 DISKS$V Meh TER: UAE she UAFMAIN.B32; 39 


-cmdlindsc(1)); 


~PSECT S$PLITS,NOWRT,NOEXE,2 


washers 


-LONG 7 
«ADDRESS P.AFI 


-PSECT S$CODES,NOWRT,2 
ENTRY HELP_UAF, Save R2,R3 
SUBL2 


#4, SP 

CMDLINDSC, R3 

CMDLINDSC+4, R2 

R2, LINE DSC+4 
@LINE_DSC+4, #32 

#32. LINE_DSC, @LINE_DSC+4 

+4 

R2, RO 


C 
C 
DSC, @LINE_DSC+4 


NE eit) af RO 
ROL 


1 
( 
; 
1, LINE_DSC+4 
Ine. 
lascet_ Line =Os 


ro A BO Ve fF DDWwawr wWwD—Bvw® 
oe 


>> 


NE Mose 


A 
UAF RAIN 15-sep-1984 09:16:54 VAX-11 Bliss -32 V Page 177 
v04- help_uaf = helm routine 14-Sep-1984 15:21:22 DISKSVMSMASTER: CAE OsR UAFMAIN.B32;1 (39) 
7 p4 é CLRL ss = ( SP) : 
9 000000006 F PUSHAB LIBSPUT_OUTPUT : 
000000006 FB CALLS , : LBRSOUTPUT _ HELP ; 
> 100000006 BF DD 0007 PUSHL #UAF$_HELPERR + 4883 
000000006 00 01 FB ith CALLS #1, LIBSSIGNAL ; 
04 00080 6$: RET : 4885 


; Routine Size: 129 bytes, Routine Base: S$CODE$S + 2928 


178 UA 


Dd 8 
UAF MAIN 16-Sep-1984 02:16:54 VAX-11 B 32 V4.0-74 P 
V04-000 exit_uaf = normal exit routine 12286871382 96:39:33 DISKSVMS aC CUAE SRCSUAFMAIN.B32:1° 7" (ads 


x Ta 
>-.- 
nen 
=n" 
me 


; 4830 4 § 1 Xsbttl ‘exit_uaf = normal exit routine’ 
; 4831 4 giobal routine exit_uaf : novalue = 
: 4 § 4 8 egin 

; 4 & 

3: 4834 4890 144 

; 4835 4891 ' 

3 4 $ 4 3 ' FUNCTIONAL DESCRIPTION: 

3 4 489 ! 

; 4838 4894 ! Normal exit routine. 

: 4839 4895 ' 

: 4840 4 38 ! INPUTS: 

: 4841 489 ‘ 

: rth 4896 : none 

: 484 4899 ! 

3 4844 4900 ' OUTPUTS: 

3; 4845 4901 ! 

3 re 490 ! none 

: 484 490 ! 

; 4848 4904 ' ROUTINE VALUE: 

; 4849 4905 ! 

; 4850 490 ! none 

; 4851 490 ! 

3 t82¢ 4908 ! SIDE EFFECTS: 

; 485 4909 ! 

3; 4854 4910 : image exits 

; 4855 4911 !—= 

3; 4856 t3i8 

3; 4857 491 $close (fab = uaffab); 

; 4858 4914 

3; 4859 4915 ! 

; 4860 4916 ! Inform user of file modifications. 
; 4861 4917 ! 

3 ree 4918 

3; 486 4919 if .modify_flag 

3: 46864 4920 then 

; 4865 4921 ! 

3; 4866 49 § ! File has been modified 

; 4867 49 ; 

: 4868 4924 LIBSSIGNAL (UAF $_DONEMSG) ! tell user all is done 
; 4869 4925 else 

; 4870 49 $ ! 

: re te 3 : Here, no modifications were made to file. 
3 4 ig 4929 LIBSSIGNAL (UAF$_NOMODS) ; 

3: 4874 4950 

; 4875 4931 if .netuaf_exists 

3: 4 6 49 § then 

; 487 ay begin 

; 4878 4934 f not .netuaf_modified 

; 4879 4935 then 

3 $n00 rh LIBS$SIGNAL (UAF $_NAFNOMODS ) 
: else 

3 4 § 49 8 L1IBS$S1GNAL (UAF $_NAF DONEMSG) ; 
3 4 4G end; 

3 4 494 

; 4885 aoe if .rdb_exists 

: 4 4942 then 


UAFMAIN 
04000 


; Routine Size: 


OOo~ 


Sep-1984 VAX-11 Bliss-32_V 
exit_uaf - normal exit routine 1f-se 30071382 96: 38: 33 DISKSVMSMA 
4943 begin 

4944 f .rightslist_modified 

4945 then 

494 ‘ 

rv } File has been modified 

1308 LIBSSIGNAL (UAF $_RDBDONEMSG) ! tell user all is done 
ae gts 

43 : | Here, no modifications were made to file. 

4384 LIBSSIGNAL (UAF $_RDBNOMODS) ; 

4955 end ; 

1989 

49 Sexit (code = true); 

4958 end; 


-EXTRN SYSSEXIT 


001¢ 0000 .ENTRY EXIT_UAF, Save R2,R3.R4 
4 00000000' 0 9E 0000 MOVAB  -UAFF 4 
8 9090000" 9E 0000 MOVAB NETUAF EXISTS, R3 
2 000000006 00 9€ 0019 MOVAB LIBSSIGNAL, Re 
4 0D 01 PUSHL 
000000006 00 01 FB 0019 CALLS SYSSCLOSE 
08 F154 C4 €E9 000 Q BLBC nobITY FLAG, 1$ 
000000006 f bp 99 3 PUSHL PUAFS. BONEMSG 
000000006 ar DD 00 p 1$: PUSHL #UAFS NOMODS 
62 } FB 00 2$: CALLS #1 
16 63 £9 000 BLBC NETUAF_EXIST net 5$ 
08 F158 C& EB 000 BLBS §NETUAF~MODIF pIED, 3$ 
000000006 8F DD 0003E PUSHL  #UAFS$_RAFNOMO 
6 11 00044 BRB 4$ 
000000006 BF DD 00046 33: PUSHL HUAFS NAF DONEMSG 
62 1 FB C 4$: CALLS LTB$SIG 
1 A} E 4F 5$: BLBC 4F biiste: NBS 
08 O¢ AS E9 3 BLBC = RIGATSLIST MODIFIED, 6$ 
000000006 8F bp 0 PUSHL  #UAF$_RDBDONEMSG 
6 11 D BRB 7$ 
000000006 8F oD F 68: PUSHL HUAFS RDBNOMODS 
62 1 FB 65 $: CALLS , LIBSSIGNAL 
1 DD 8$: PUSHL 
000000006 00 1 FB 00 6A CALLS #1, SYSSEXIT 
04 00071 RET 


114 bytes, Routine Base: S$CODE$ + 29AC 


TER: UAE she UAFMAIN.B32; 1 


rege, ls 


Sete See Se Ge Se Ge Ge Se Se Ge Ge Ge Ge Se Se Se Se Ge Be Ge Se Ge Se Be 


(40) 


UA 


v04-0 SIGNAL SYNTAX = Report missing qualifier 


0000 00000 
000000006 8F 44 00002 
000000006 00 01 AP Bonor 


Routine Size: 16 bytes, Routine Base: SCODE$ + 2A1E 


UAFAIN 1eSe79B6 FUSNE:HE YMEcLDWBh kz a? 


; 4904 $373 | 1 Xsbttl 'SIGNAL_SYNTAX = Report missing qualifier’ 
; 4905 rhe Lobal routine SIGNAL_SYNTAX: novalue = 

3; 49 49 egin 

: 490 49 

; 490 49 LIBSSIGNAL (UAF$_ZISQUAL); 

; 490 4964 

; 4910 4965 end; 


: rf, UA 
AF .SRCJUAFMAIN.B32; 39 


c< 


-ENTRY SIGNAL_SYNTAX, Save nothing 
PUSHL #UAF$_ZISQUAL 
CALLS #1, CTBSS1GNAL 


UAF MAIN 18-se Sep-1984 VAX=11 $332 V 0-74 Page 181 “ 
v04-0 accSexit - exit and cleanup routine ty 7 9¢: ho: 33 DISKS$V mt STER: CUA AE SRC SUAFMAIN.B32:4 . (133 
: 491 $3 $j Asbttl ‘accSexit - exit and cleanup routine’ 
3; 491 4 1 tek ne acc$exit : novalue = 
; 491 49 
; 4915 49 
: $38 49 '+ 
: 491 497 ! 
3 {318 1358 ! FUNCTIONAL DESCRIPTION: 
3; 491 497 ' 
: 4920 4974 ! Exit on error condition. 
: 4921 4975 ! 
3; 49 ¢ 497 ' INPUTS: 
3; 49 497 ! 
3; 4924 497 ! none 
3 4925 497 ! 
3 49 $ 4980 ' OUTPUTS: 
3; 49 rs ! 
3; 4928 49 ¢ ! none 
3 4929 498 leo 
; 4930 4984 
3; 4931 4985 Sexit (); 
3; 4932 4986 1 end; 
0000 00000 ACCSEXIT: 
WORD Save nothing : 4967 
01 dD 00002 PUSHL #1 ; 4985 
00000000G 00 01 FB 00004 CALLS #1, SYSSEXIT 3 
04 00008 RET : 4986 


Routine Size: 12 bytes, Routine Base: S$CODE$ + 2A2E 


Cc 
= 


UAFM 16 -Sep-1984 4 VAX-11 Bliss-32 V 2 
VOer000 UAFSMOD_SYS_PWD <= modify the system password “520-198 ¢: 3: 33 DISKSVMSMASTER: evar’ OS RCSUAFMAIN. 832;1 face 188 


UAF RABLRABSV_UIF 

UAF RABLRABSW_RSZ) = = UiFsc LENGTH; 
UAFRABLRABSL-RBF) = RECBUF; 

] 

Modify the system password 


: 4987 ! Zsbttl ‘UAFSMOD Sy5 PWD -- modify the system password' ; 
3 re } Broval routine OAFSMOD_SYS_PWD: novalue = : 
; 49 ; 
: a i : 
: 1832 | Functional Description: : 
; 4995 : Modify the system password record by doing a SPUT on the UAF : 
; 1839 with the UIF bit set for the username ‘'<System+Password>"’ : 
oo a ; 
: 8 : local : 
: 3 RBF, ; 
; PWD: blockCDSC$K_D_BLN byte) 3 
; 004 preset (CDSCSB-CLASS) = DSCSK_CLASS_D), ; 
3 005 ROP; 3 
bor 5 
: 88 Save current settings : 
; 010 2. ; 
3 011 RBF = .UAFRABCRABSL_RBF : 
: O18 ROP = -UAFRAB RABSL— “ROP): : 
; 14 2! ; 
3 A Get new password and encrypt it : 
; ae Be : 
; 18 CLISGET_VALUE(Zascid’SYSTEM_PASSWORD', PWD); : 
; 0 .PWOCDSC$W_LENGTH] neq 0 t F 
3 8 1 {LOL SHUD (REC ENCRYPT_DSC, Reo. UAFSC_PURDY_V, 0, Z%ASCID'<System+Password>') : 
; 0 Vie “EhSTILL(O, UAFSS_PWD, RECBUFCUAFSQ_PUD}); : 
; 025 2! ‘ 
3 8 § Fill in fields of the UAF record : 
: § 5 chScopy(17 UPLIT('<System+Passw ; 
; ‘ Py UAFSS_USER NAME REcburEUAFSt. "DSERNARED) ; ; 
: ; RE CBUF CUAF $W_SALTJ : 
4 ' : 
; : Modify the RAB for our needs : 


Wr—OOe 


UAFMAIN $ep-1984 VAX-11 Bliss-32 V4.0-74 Page 183 
“ UA D_SYS_PWD -- modify the system password -Sep- DISKSVMSMASTER: CUAF .SRC JUAFMAIN.B32;1 (43) 

V06~000 FSMOD_SYS_P if those pr19be 99239533 $ TER:C j 325478 8 

; 4991 44 

; 499 5 SPUT (RAB=UAF RAB) ; 

; 499 r¢] 

> 4994 } 

; 4995 4, : Replace the settings 

3 $339 4 ! 

; 499 2 

3 $338 UAFRABCRABSL_RBF) = .RBF; 

: 4 26 UAF RABLRABSL_ROP ROP; 

; 5000 

; 5001 054 end; 


-PSECT SPLITS,NOWRT,NOEXE,2 
-ASCII \SYSTEM_PASSWORD\<0> 


P.AFJ: .LONG Sp + Aa 
eADDRESS P 
P.AFM: .ASCII \edyeten+Pecsuoré>\<0><0><0> 


P.AFL: Lone es'b Werers? 
P.AFN: .ASCII \<dyeton¢Passuord>\<0><0><0> 


44 52 4F 57 53 53 41 50 SF 40 45 54 53 59 


co 
~o 
o 
v 
o 

> 
nm 
nx 


gig 
0 

72 6F 77 73 73 61 50 28 6D 65 74 73 

00 

: 


SSSRUlSae 


72 6F 77 73 73 61 SO 28 6D 65 i 73 


-PSECT SCODES,NOWRT,2 


~ ENTRY UAF SROD_SVS PUD. Save R2,R3,R4,R5,R6,R7,RB,~; 4988 
59 0000 MOVAB P.AFJ, R9 : 
0000 NOVA UAFRAB+40, RB : 
02000 PUSHL #34594432 > 5004 
CLRL PWD+4 3 
7 MOVL UAFRAB+40, RBF 3; 5011 
é VL UAERA 4, ROP : 2012 
42 PUSHR S62 3 1 
000000006 00 CALLS #2. nie GET_VALUE : 
ist Pub ; 5020 
PUSHAB weil : 5021 
7E mova r, =(SP) : 
PUSHAB PW : 
F94 PUSHAB REC_ENCRYPT DSC ; 
000000006 00 CALLS #5, “LGISHPWOD ; 
08 00 6E sail MOVCS #0, (SP), #0, #8, RECBUF+340 : 5023 
20 20 Ee et MOVCS #17, P.AFN, #32, #32, RECBUF +4 ; 5030 
ae FB56 CLRW, —-RECBUF +358. $03) 
FA A 0584 MOVW aietes Tee Ae +36 : 5038 


UAFMAIN 1b-se Sep-1 VAX-11 Bliss-32 V4.0-7 
yO4n000 UAFSMOD_SYS_PWD <= modify the system password 1 900-1 3Re 9¢: }6: 33 DISKSVMSMASTER: CUAF. Ske UAFMAIN.B32;1 

68 F9FO C8 9E 00067 MOVAB RECBUF, UAFRAB+40 

D8 «AB OF C PUSHAB UAFR 
000000006 09 1 F F CALLS #1, SYS$PUT 
6 7 0D $ MOVL RB, UAFRAB+40 
pc AB 6 p 07 MOVL ROP. UAFRAB+4 
4 00070 RET 


; Routine Size: 126 bytes, Routine Base: S$CODE$S + 2A3A 
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UAFMAIN -Sep-1984 02:16:54 VAX-11 Bliss-32 V4.0-74 Pp 185 
¥Oe-000 security_audit - perform a security audit 12286871388 96:39:33 DL SKSVMGMASTERSCUAF  SRCTUAFMAIN. B32; 1°" (aes 


; 5003 5 1 &sbttl ‘security_audit - perform a security audit’ ; 
> 5004 ' § 1 routine Securityvaudit (code, old_user) : Novalue = : 
3 5 begin : 
: 500 25 res : 
; 5008 r¢ ! 3 
: se °) FUNCTIONAL DESCRIPTION: 3 
3 ae $4 Perform a security audit, if needed. F 
: O18 65 ' INPUTS: : 
: 5014 96 ! 3 
3; 5015 ! CODE = Security audit record id 3 
: 2pi$ +43 OLD_USER = Old username (optional depending on the record id) : 
; api8 S070 ' IMPLICIT INPUTS: 3 
: 2090 207) $i PCB_STS = Thi PCB stat 
$ : - S process's status F 
3; 5021 S078 ' UAF $GQ_SYSUAFF : SYSUAF fields modified : 
; 50 ; 074 ! $ 
3; 50 5075 ' OUTPUTS: 3 
3: 5024 2878 ! 3 
; 5025 07 ! none 3 
; 5026 an7e ! 3 
3; 5027 507 ' IMPLICIT OUTPUTS: : 
; 5028 080 ! 3 
3 2088 081 ! none 3 
; 5030 oes ! 3 
; 5031 508 ' ROUTINE VALUE: 3 
3 o038 5084 ! 3 
; 503 5085 ! none 3 
; 5034 epee ‘ 3 
3; 5035 508 ! SIDE EFFECTS: 3 
3 anes 5088 ! 3 
; 503 5089 ! none 3 
; 5038 5090 ! 3 
; 5039 5091 lee 3 
; 5040 2038 3 
3; 5041 509 external routine 3 
3 2006 5094 nsaS$event_audit; ! Kernel mode auditing routine : 
3; 504 095 3 
3: 5044 +4 external 3 
3 5045 09 nsa$gr_alarmvec : block f-byte - | Security audit alarm vector 3 
$ 5007 B36 nsa$gr_journvec : block C,byteJ; ! Security audit journal vector : 
3; 5048 1 ? macro 3 
3 ie a" ! add_quad_packet (type, a_quad) = ! Add a quadword packet to List 3 
3 egin 3 
3 2084 m 51 : Carglist ptr)<0,16> = Iname('nsaSk_pkttyp_'. type); 3 
3 O36 mM 51 argl st ptr zs. roList ptr + 2; 3 
; 505 mM 5105 ‘.argt St_ptr)<0,16> = nsaSk_arg_mech_quad; 3 
; 5054 451 argl st ptr = arg ist_ptr +2; 3 
; 5055 mM 51 (,argliSt_ptr)<0,52> =". (a_quad)<0,32>; : 
3 28 Mm 51 3 arglis ptr = "9 ist_ptr'+ 4; 3 
: 505 Mm 51 (,arglisSt_ptr)<0,52> =". (a_quad)<32,32>; : 
3 B28 4 51 9 arglist_ptr = .arg ist_ptr + 4; 3 
; 505 m 511 arglist[nsa$b_arg_pktnim] = .arglist(nsa$b_arg_pktnum] + 1; 3 


<< | 
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; 5060 11 end%, | 
: $9 f 1} add_fes rapacket (type, len, ptr) = ! Add a descriptor packet to List 
; O68 Mm 5115 (,arglist_ptr)<0,16> = Xname('nsaSk_pkttyp_'. type); 

; 4 M 118 argl st ptr = ehrotist.ptr 4 2; 

; 5065 M 511 (,arglist_ptr)<0,16> = needs .ore_nech descr; 

: 506 M 118 argl st ptr = ebrghist.. tr +°2; 

3 89 M511 (,argliSt_ptr)<0,52> ="len; 

; 5068 M 5120 arglist_ptr = br ayist ptr + 4; 

3 BeR M 5121 (,arglist_ptr)<0,52> = ptr; 

; 5070 Mm 51 § arglist_ptr = -arglist ptr + 4; 

3 4 M } ? arglistCnsa$b_arg_pktnun = .arglist(nsa$b_arg_pktnum] + 1; 
; endi; 

: O78 125 

3; 5074 1 § local 

; apr? ! 4 orgt ist . e. block re »'gAreynent, List tor NSASEVENT_AUDIT 
; : nsa$k_arghdr_len @ 

3 3077 2] ; arglist_ptr; . ° Packet fill in pointer 

; rte 4 3} 1 ch$fill(O, Xallocation(arglist), arglist); ! Clear out the argument List 
: 5081 51 § if -nsasor_a armvec(nsa$v_evt_uaf ! If alarm auditing, 

3 2088 1 : then arglisSt(nsa$v_arg_flag_alarm] = true; ! perform alarm audit 

; 5084 51 § if snsaSor _journyec(nsasy.evt_uat) ! If journal auditing. 

3 a0a2 2} . then arglist(nsa$v_arg_flag_journ] = true; ! perform journal audit 

; 5087 2} 9 if .pcb_sts($bitposition(pcb$v_secaudit)] ! If mandatory auditing, 

; e0a8 ayey then arglist(nsa$v_arg_flag_mandy] = true; ! perform mandatory audit 

: 5090 3148 if .arglist(nsa$b_arg_flag) eql 0 ' If no audit requested, 

; 203) aiez then return; ! simply exit 

; shez 316? arglist(nsa$l_arg_id] = .code; ! Set audit record type/subtype 
: 444 a1éf arglist_ptr = arglist(nsa$t_arg_list]; ! Address packet(s) in arg list 
; 5097 149 if .arglist(nsa$w_arg_type] eql nsask_rectye sysuel 

3 His 2129 shen, : ! For SYSUAF records... 

: egin 

3 $100 3182 if -arglist(nsasu_arg_subtype} neq nsa$k_rectyp_sysuaf_del 

: en 

3 $102 5154 add qued_packet (sysuatf. uaf$gq_sysuaff); 

3 2} P 5155 add_descr_packet (usernam 

3; 51 P 5156 name len(uaf$s_usernam recbufCuaf$t_username)), 

3 319? 157 recbufLuaf$t_username]); 

3; 5106 138 if .arglist(nsa$w_arg_subtype] eql nsa$k_rectyp_sysuaf_cop 

: Ht i or .arglist(nsa$w_arg_ subtype] eql nsa$k_rectyp_sysuaf_ren 

; en 

; 199 P 184 add_descr_packet (usernam 

3 139 P 196 nanelen(uaf$s_usernane, -old_user), 

3 -old_user); 

3 136 164 end 

3 HF 169 else, P ! For NETUAF records... 

; egin 

; $115 P 516 add_descr_packet (nodenam 

; 5116 P 5168 name len(naf$s_node, netbuf(naf$t_node]), 
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; 5117 169 netbuf(naf$t_node]); ‘ 
; 5118 Pp 126 add_descr_packet (usernam me : 
3; 3119 P 51 namelen(naf$s_remuser netbufCnaf$t_remuser]), ‘ 
; 5120 1% netbufCnaf$t_remuserJ); : 
; $121 P 517 add_descr_packet (usernam ; 
; 51 § P 5174 name len(naf$s_localuser netbuf(naf$t_localuser)), : 
> 51 175 netbuf(naf$t_CocaluserJ); ; 
; : : 178 if ,oratist(nsasu_arg_subtypel eql nsa$k_rectyp_netuaf_mod : 
3 21 6 178 4 begin 3 
; 5127 P5179 4 add_descr_packet (nodenam : 
; 5128 P 51 9 4 naneLeninat$s node netbuf(naf$t_node]), : 
3; 5129 1 4 netbuf(naf$t_nodel); : 
; 5130 P 51 § & add_descr_packet (usernam ; 
; 5131 P 51 4 namelen(naf$s_remuser netbufCnaf$t_remuser]), : 
; 51 ¢ 2] 4 4 netbufCnaf$t_remuserJ); ‘ 
3; 51 P5185 4 add_descr_packet (usernam : 
3 2} 4 P 2) § 4 name len(uaf$s_username, -old_user), : 
; 3135 \3 4 -old_user); 3 
: 5136 5188 end; : 
: 3138 3190 re 
3 2172 213) arglist(nsa$l_arg_count] = (.arglist_ptr - (arglist + 4)) / 4; ! Set # args : 
: 316) 5198 $Scmkrni(routin = nsaSevent_audit, arglst = arglist); ! Do the security audit ‘ 
: 3128 5195 1 end; ; 
-EXTRN NSASEVENT_AUDIT : 

-EXTRN NSASGR_ALARMVEC : 

-EXTRN NSASGR_ JOURNVEC : 

-EXTRN SYSSCMRRNL ; 

eshdvoeae serenttechda Ni S R2,R3,R4,R5,R6 5056 } 

° ave e a . a Py ‘ 

56 00000000" 00 9€ 0000 MOVAB NETBUF, R6 3 3 

5e AC AE 9E 9009 MOV -84(SPS, SP ; ; 

0054 =«8F 00 6€ 2c Baye MOVC #0, (SPS, #0, #84, ARGLIST ; 5131 3 

04 000000006 00 ; £1 00015 BBC 42. NSASGR ALARMVEC, 18 ; 5133 ; 

8 Ar 8 19 BISB2 #1, ARGLIST+ : 5134 : 

04 00000000G 0 + 1$ BBC #2, NSASGR_JOURNVEC, 2$ 3 2} $ 3 

Af 8 9 BISB2 #2, ARGLIST+ 3 2) 3 

04 00000000' 0 1 28 BBC #5, PCB_STS+5, 3$ ; 5139 3 

0 Ae 4 BISB2 #4, ARGCIST+ 3 2128 : 

08 A 3$ TSTB. = ARGLIST# ; 514 ; 

01 1 C BNEQ 4b : 3 

0 E RET 3 : 

046 A 4 AC +4 F 4$ MOVL CODE ba ; 5145 3 

3 c AE OF 4 MOVAB ARGLIST+12, ARGLIST_PTR > 5147 ; 

4 AE ° 48 CMPW ARGLIST+#4, #2 ; 5149 : 

3¢ ¢ 4C BNEQ : : 

02 06 AE ° CMPW ARGLIST+#6, #2 ; 5152 : 

F 3 ; BEQL 3 3 : 

82 00030012 F OD MOVL #196626, (ARGLIST_PTR)+ ; 5154 3 


; Routine Size: 305 bytes, Routine Base: S$CODE$ + 2AB8 
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C6 7D 0005 MOVQ = -UAFSGQ_SYSUAFF, (ARGLIST_PTR)+ ; : 
AE 9% INCB AR 1sT+9 : ; 
sane 0004000 i p0 ; 5$ MOVE i $5 CARGLIST PTR)+ + 5157 : 
82 i 8 3 9 SUBL3 = R Bo (ARGLIST_PTR)+ ; 3 
“i C6 7 MOVAB Re CBUE +4 (ARGLIST_PTR)+ : ; 
ap A i ineG anol Ist 33 #4 : 5158 
7D BEQL 8$ : ; 
05 06 Ag i CHP W ARGLIST#6, #5 + 5159 : 
am BRB ; 5163 3 
aa 00040009 i p60 A 6$: MOV £8. is. 5 CARGLIST_ PTR)+ + 5169 ; 
82 p g3 0 95 SUBL3 R0 #32, (ARGLIST pra)e : $ 
2 6 99 MOVAB NE FRU (ARGLIST_PTR : ; 
AE 9 9C INCB fs : ; 
82 0004000A = 8F p O9F MOVL ie 5 CARGLIST PTR)+ + $172 : 
20 Ab 0 A 0006 LOCC F+32 : ; 
82 0 C3 OOOAB SUBL3 P * RESe te PTR)+ : ; 
2 20 Ab SE OOOAF MOVAB ttt CARGLIST. PTR)+ : : 
8 0004000 ar 38 iets AOE ; Beb tsi 34, (ARGLIST PTR) : 5175 
40 Ab 20 RR 008 LOCce 483° . NETBUF+E4 : ; 
82 0 0 c3 00¢ SUBL3 RO 3° * (ARGLIST_PTR)+ : ; 
2 40 Ab E 00¢ MOVAB NETBUF +6, (ARGLIST_PTR)+ : ; 
oR OME GP tae IME SEISTS2. as ism] 
4 if ita 7$: BNEQ ; ; 
82 00040009 8F : 0003 MOVL Fae. ee, CARGLIST. PTR)+ + 5181 ; 
66 2 0 3A OOODA LOCC N ; ; 
82 20 0 3 O00 SUBL3 #32, * NRGLTST PTR)+ : ; 
2 66 SE O00E MOVAB NefBUr (ARGLIST_PTR)+ : : 
09 AE 96 OO0E INCB si +9 ; ; 
20 AG 85 2004000A FF BR Sooge toct re #33, NETBUES3O on 
82 20 8 3 OF4 SUBL3. RO, #32, (ARGLIST_PTR)+ ; : 
2 0 Ad SE 000F8 MOVAB NE fauF S$ » (ARGLIST_PTR)+ : ; 
AE 96 OFC INCB ARGL 1 ; ; 
0004000A 8F p OFF 8$: MOVL H eee 4, (ARGLIST_PTR)+ : 5187 ; 
08 BC ; A 001 Loce 2, aOLD_USER ; ; 
82 4 C3 1 SUBL3 RO, #32, (ARGLIST PTR)+ : 3 
08 AC p 10F MOVL  OLD_USER, (ARGLIST_PTR)+ : ; 
09 AE 96 00113 INCB = ARGC 1ST +9 ; 3 
5 4 AE 99E 00116 98: MOV ARGLIST+4, RO > $191 ; 
5 50 Co OO11A SUBL2 RO, ; : 
6E 5 4 (¢? 0011D DIVL3 #4; R2, ARGLIST ; ; 
; BD 121 PUSHL SP + 5193 ; 
000000006 F 001 ; PUSHAB NSASEVENT AUDIT ; 3 
000000006 00 2 FB 001 CALLS #2, SYSSCAKRNL ; : 
04 00130 ET : 5195 ; 
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196 1 end ! End of module 
146 2199 0 eludom antes 


~-EXTRN LIBSSTOP 
PSECT SUMMARY 
Name Attributes 


SPLITS NOVEC ,NOWRT, »NOEXE ,NOSHR, 
SOWNS NOVEC, WRT, »NOEXE ,NOSHR, 
$GLOBAL$ id + cunt’ »NOEXE ,NOSHR, 
SCODES NOVEC, RD, E, ’ 
» ABS. NOVEC, *NOWRT. “NORD ;NOEXE,NOSHR, 


Library Statistics 


Symbols ge Processing 
File Total Loaded Percent Mapped Time 


~-$255$DUA28: CSYSLIBILIB.L32;1 18619 300 1 1000 00:02.0 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:UAFMAIN/CBJ=OBJ$:UAFMAIN MSRC$:UAFMAIN/UPDATE=(ENHS$:UAFMAIN) 
11241 8° + 8672 data bytes 


; Elapsed Time: 0 0.7 
; Lines/CPU Min: Ho 6 

; Lexemes/CPU-Min: 26564 

; Memory Used: 654 pages 
; Compircation Complete 
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